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Neues Vorwort zur Digitalisierung 


Es hat lange gedauert! Aber nun hat sich Thomas Werner 
die viele Arbeit gemacht, den größten Teil meiner Bücher 
nach, zum Teil über dreißig, Jahren in interaktiver PDF- 
Form zu digitalisieren und als Public Domain kostenlos on¬ 
line zur Verfügung zu stellen. Nachdem meine Bücher einen 
langen Dornröschenschlaf hinter sich haben, sollen sie und 
das immense darin festgeschriebene Wissen jetzt wieder 
zum nützlichen Leben erweckt werden : 0 ) 

Meiner Ansicht nach ist die objektorientierte Programmie¬ 
rung nicht für die Massenanwendung geeignet. Nach mei¬ 
ner Berechnung sind nur ca. 15 Prozent der Bevölkerung in 
der Lage, mit der OOP sinnvolle Erfolge zu erzielen. Um 
aber "massenfähig" zu sein, muss eine Programmiersprache 
mindestens 80 Prozent der Bevölkerung erreichen, damit 
sich Lehrer und Schüler auch außerhalb von IT- 
Leistungskursen über die Softwareentwicklung so verstän¬ 
digen können, dass der eine - vermittelbar und auch prüf¬ 
bar - wenigstens "einigermaßen" versteht, was der andere 
meint. Andererseits "reißt unweigerlich der Faden" zwi¬ 
schen Ausbildern und Lernenden. Daher ist es auch kein 
Wunder, dass sich die prozeduralen und damit auch leicht 
anwendbaren Basic-Programmiersprachen, wie z.B. das 
sehr populäre GFA-Basic, einer gewissen Renaissance er¬ 
freuen. 

Diese Tendenz werde ich natürlich als ehemals populärer 
Bestseller-Autor nach all meinen Möglichkeiten tatkräftig 
unterstützen. Ich verfüge über mehr als 4000 Seiten umfas¬ 
senden, ausführlichen und auch unter den wachsamen Au¬ 
gen der Öffentlichkeit profund geprüften Software-Wissens. 



Dieses Wissen ist auch in der heutigen Zeit absolut nicht 
überflüssig und veraltet, sondern bildet auch heute noch die 
Basis für algorithmisches Grundlagenwissen. 

Aber damit nicht genug: ich habe zudem beschlossen, eine 
neue Programmiersprache namens "QS!X©" zu entwickeln. 
Sie wird sich in vielen Punkten an einfachem Standard- 
Basic anlehnen. Auf der weltweit überall auf allen Betriebs¬ 
systemen und in jedem Standardbrowser verfügbaren 
- und damit 100% cross-kompatiblen - Plattform von 
HTMLs/Canvas wird "QS!X©" als Open Source-Version 
(ähnlich LINUX) verfügbar sein. Nähere Informationen da¬ 
zu finden Sie unter: 

http://www.litzkendorf.net/invitation info d.pdf 

Damit ist auch der "Klasse für die Masse"-Philosophie von 
Frank Ostrowski (dem GFA-Basic-Vater) Rechnung getra¬ 
gen. Wenn denn alles so funktioniert, wie ich es mir vorstel¬ 
le, wird die weise, sanfte und erzfreundlich geduldige und 
bescheidene Denkart von Frank Ostrowski auch Jahre nach 
seinem (viel zu frühen) Ableben noch weltweit merkliche 
Wirkung tragen! Er bildet dann verdientermaßen - zumin¬ 
dest im IT-Business - die philosophische Grundlage für 
eine Art "Weltsprache"! Das würde ihm sicher sehr gefallen! 

In treuem Gedenken an einen wirklich großen Mann, mit 
dem ich das Vergnügen hatte, teil- und zeitweise recht eng 
und vertraut zusammen zu arbeiten und dem mit "QS!X©" 
auch ein digitales - und verdientes - Denkmal gesetzt wird! 

Uwe Litzkendorf 
Hildesheim, im Mai 2020 
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Vorwort 


Nach dem Flop mit dem ursprünglichen Atari-BASIC und einer 
langen Zeit des Wartens auf eine Alternative kam die frohe 
Kunde: Es gibt ein neues BASIC - GFA-BASIC, Autor Frank 
Ostrowski. Sehr schnell stellte sich bei uns Programmierfreaks 
heraus, daß hier weit mehr als das Bekannte und Herkömmliche 
auf dem Bildschirm zu erleben war. Die Geschwindigkeit des 
Interpreters ist so groß, daß BASIC sogar für Profis interessant 
wurde. In Kombination mit dem Compiler wird man wohl kaum 
noch Programmieraufgaben finden, die nach noch mehr Schnel¬ 
ligkeit verlangen. Die Chance des strukturierten Programmierens 
schafft in unseren Quellcodes eine Übersichtlichkeit und Nach¬ 
vollziehbarkeit, die bisher nur von Pascal, ’C’ usw. bekannt war, 
Spaghetticode, jahrelang das Markenzeichen von BASIC, ist out. 
Und die Menge der Befehle und Routinen, die Frank Ostrowski 
implementiert hat, verlangt schon nach einer gehörigen Ein¬ 
arbeitungszeit, um all die vielen Möglichkeiten ausschöpfen zu 
können. Kurz: GFA-BASIC hat einen neuen Standard bei den 
Programmiersprachen gesetzt. 

In diesem Buch geht es um das Ausschöpfen der Möglichkeiten. 
GFA-BASIC kann viel mehr, als auf den ersten Blick ersichtlich 
ist, viele Routinen, die in älteren BASIC-Varianten gar nicht, 
auf Umwegen oder sehr lang programmiert werden mußten, 
können hier 'mit links’ geschaffen werden. Und mit dem nötigen 
Wissen über den Atari, sein Betriebssystem und seine versteckten 
Adressen werden virtuose Programme, geschrieben in BASIC, 
nicht nur von ein paar Profis, sondern von all denen, die es 
wissen wollen, kreiert werden können. 

Schauen Sie zwei langgedienten Programmierern über die Schul¬ 
ter, die sich in GFA-BASIC verliebt haben. 

Uwe Litzendorf hat schon zwei Monate nach Markteinführung 
von GFA-BASIC sein ’Großes GFA-BASIC-Buch’ heraus¬ 
gebracht, das zum einen ein Handbuchersatz für viele wurde 
und zum anderen eins der ersten Malprogramme vorstellte, das 
viel mehr Grafikmöglichkeiten des Atari nutzte, als bisher be- 



kannt waren. Außerdem ist er einer der beiden Autoren des 
DATA BECKER Führer ’GFA-BASIC’. Er hat sich vor allem 
auf die Betriebssystemroutinen und die dokumentierten und un¬ 
dokumentierten Adressen gestürzt und zeigt Möglichkeiten auf, 
die bisher z.T. noch nicht einmal bekannt waren. 

Udo Onnen, seit Jahren professioneller EDV-Anwender und 
Programmierer, ist seit längerem als Autor von Zeitschriftenarti¬ 
keln bekannt, die Problemlösungen in GFA BASIC vorstellen 
und erläutern. Sein Interesse liegt vor allem in den Möglichkei¬ 
ten der grafischen Benutzeroberfläche GEM und den Chancen, 
die sich durch die Benutzung von Fenstern, Objekten und Bil¬ 
dern für die problemlose Handhabung der Programme bieten. 

Es bleibt zu hoffen, daß die Tips und Tricks, die hier aufge¬ 
listet sind, ihren Zweck erfüllen, nämlich auch Ihnen zu ermög¬ 
lichen, ohne unnötige Umwege das Ziel, das Sie sich gesetzt ha¬ 
ben, zu erreichen. Verzeihen Sie Fehler, die trotz sorgfältiger 
Korrektur immer noch auftreten können, aber behalten Sie diese 
nicht für sich. 


Uwe Litzkendorf 
Udo Onnen 


Hildesheim/Hannover, 
im Juni 1987 
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Hinweis 

Bei den vorgestellten Programmen erklären wir die einzelnen 
Prozeduren nacheinander. Die Programmabschnitte sind nicht 
einzeln, sondern nur im Gesamten lauffähig. Die Programme 
befinden sich unter den im Programmkopf angegebenen Na¬ 
men auf der beiliegenden Programmdiskette. 
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1. Dem Computer über die Schulter geschaut 


Von jeher hat uns brennend interessiert, wie es in einem 
Computer-Speicher aussieht. Daß der Speicher eine riesige An¬ 
sammlung von Bits und Bytes ist, wird den meisten der Leser 
wohl bekannt sein. Aber was passiert darin eigentlich? 

Um sich dieses geniale Durcheinander einmal genauer anzu¬ 
schauen und den Computer (besser: das Betriebssystem) bei der 
Arbeit zu beobachten, gibt es im GFA-BASIC zwei Möglich¬ 
keiten. 

Die erste ist die, daß man mit dem ’BMOVE’-Befehl einzelne 
Speicherbereiche ganz schnell hintereinander in den Bild¬ 
schirmspeicher kopiert. Die zweite ist etwas einfacher, dafür 
aber überhaupt nicht variabel. Nämlich einfach den Bildschirm¬ 
speicher über den Speicherbereich, den man sehen möchte, 
’drüberstülpen’, also den Speicherbereich, den man auf dem 
Bildschirm sehen kann, in den gewünschten Bereich verlegen. 

Das ist deshalb recht uneffektiv, weil man nun tunlichst vermei¬ 
den sollte, Bildschirmausgaben zu produzieren, da dann z.B. eine 
Box direkt in den Speicher 'gezeichnet’ und die dort liegenden 
Bits zerstören würde. Das eröffnet natürlich auch die Möglich¬ 
keit, ganze Speicherbereiche zu invertieren, zu ’Xor’en oder zu 
’Or’en, indem man z.B. im Graphmode 3 eine schwarze Pbox 
über den Bereich zeichnet (XOR) oder ein Speicherrechteck mit 
’GET X,Y,X1,Y1,A$’ zwischenspeichert und mit 'PUT 
X2,Y2,A$,7’ an die gewünschte Speicherstelle transportiert (OR). 
Bei richtiger Handhabung ist dieser Vorgang sogar in manchen 
Beziehungen effektiver als der 'BITBLT’-Befehl. Wie dieses 
Verschieben des Bildschirmspeichers funktioniert, finden Sie 
unter ’XBIOS(5)’ beschrieben. 
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GFA-BASIC Tips & Tricks 


1.1. Der MEMORY-Spion 

Das folgende kleine (?!) Programm verwendet mehrere Tips und 
Tricks, die entweder im Listing oder an anderer Stelle beschrie¬ 
ben werden. Wenn Sie das Programm starten, können Sie mit 
Drück auf die <SPACE>-Taste den zweiten Effekt (Bildchirm- 
speicher verschieben) auslösen, wobei allerdings sonst keine 
weiteren Funktionen aktiv sind. Nach Druck auf eine beliebige 
Taste kehrt das Programm wieder in den Normal-Modus zurück 
(BMOVE in den Bildschirmspeicher). Während im Normal- 
Modus der Bmove-Befehl und die sonstigen Bildschirmanzeigen 
etwas Zeit brauchen, ist im anderen Modus (SPACE-Taste) der 
Speicher in Real-Time zu sehen, da absolut keine Zeitverzöge¬ 
rung zwischen den System-Aktionen und der Sichtbarkeit auf 
dem Bildschirm auftritt. 

Eine weitere Hilfs-Funktion kann im Normal-Modus durch 
Druck auf die <Help>-Taste aktiviert werden. Während sonst in 
der unteren Bit-, Wert- und ASCII-Anzeige immer der Inhalt 
des Bytes angezeigt wird, auf welchem sich der Bytezeiger 
gerade befindet, wird nun nur noch die Adresse angezeigt, die 
beim Drücken der <Help>-Taste aktuell war. Diese Funktion 
wird wieder ausgeschaltet, indem noch einmal die <Help>-Taste 
gedrückt wird. 

Im übrigen sind die Programmfunktionen jeweils in der Kopf¬ 
zeile angezeigt. Im Edit-Modus haben Sie die zusätzliche Mög¬ 
lichkeit, mit Druck auf die rechte Maustaste den ’SNAP’-Modus 
aufzurufen, womit Sie beliebige Bildschirmausschnitte im GET/ 
PUT-Format auf Diskette speichern können. Sie verlassen dieses 
Programm mit der <Esc>-Taste. 

Viel Spaß mit diesem Programm, das Ihnen hoffentlich den 
richtigen 'Durchblick verschafft. 
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Abb. 1: Durchblick 


Programm: MEMO_SPY.BAS 

| IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIHIHIIIIIIIIIIIIIII 

MEMORY - SPION 


I IIIIIIIIIIIIIIIIII UMIIIIIIIIIIIIIIIIIIII HUIIIIIIIIIIIIIIIIIIIIIIII I 


On Break Cont ! 

Ssp%=aSuper(0) ! 

I | 

Dim Hex_buff$(4) ! 

Ram_top%=Lpeek(1070) ! 

1 ! 

Rom_bot%=Lpeek(1266) ! 

ainit ! 

Hidem ! 

SMain ! 

Showm ! 

Usp%=aSuper(Ssp%) ! 

Edi t 


Deffn Super(Mod%)=Gemdos(&H20,L:Mod%) 


Abbruch-Funktion ausschalten 
User-Modus ausschalten, ab jetzt 
sind wir im Supervisor-Modus 
4 Puffer für 4 Hexa-Bytestrings 
letzte RAM-Adresse feststellen 
(s. unter 'System-Adressen') 
erste ROM-Adresse feststellen 
Screen aufbauen 
Maus aus 

zum Hauptprogramm 
Maus an 

Supervisor-Stack restaurieren 

Super' an/aus (s.GEM00S(38)) 


! 







































16 


GFA-BASIC Tips & Tricks 


Diese Prozedur beinhaltet die Hauptschleife, in welcher die Er¬ 
eignisse verwaltet werden. 


Procedure Main 
Repeat 

Mouse XX,YX,KX 

KeyX=Asc(Rightt(InkeyS)) 

Bmove AX,Xbios(2)+2000,22000 


If KeyX=9 I 

If RomflgX=0 1 

SAnzeige ! 

SEdit ! 

Else ! 


Get 0,0,639,24,Headline$ ! 
Deffill ,0,0 

Pbox 0,0,639,24 ! 

Deftext ,16,,13 


! Hauptschleife 
I Tastatur-Abfrage 

! 22000 Byte Speicherblock (A=Byte 1) 
ab Zeile 25 (80 Byte/Zeile =2000) 
in Bildschirmspeicher übertragen. 
Wenn ASCII=9 (<Tab>-Taste) 

Befinden wir uns im RAM? 

erstmal Anzeige aktualisieren, 
dann zur Editions-Rout ine. 

Wir sind im ROM! 

Infozeile des Hauptmodus sichern 


Xt$="DAS ROM ('NUR-LESE-SPEICHER') KANN NICHT EDITIERT WERDEN ! 
Text 20,18,600,Xt$ ! 

Deffill ,2,4 !-- Hinweis ausgeben 

Fill 60,2 ! 


Pause-120 !.' 

Put 0,0,Headline$ ! Infozeile restaurieren 

Key%=0 
Endi f 
Endi f 


If Key%=98 
FixX=FixX Xor 1 
Endif 

If KeyX=32 
LogX=Xbios(2) 
PhysX=Xbios(3) 
If A%<1840 


B%=0 

Else 

B%=AX-1840 


! Helptaste gedrückt? 

! dann im Wechsel die Byte- 
! Fixierung an/aus 

! <Space>-Taste gedrückt? 

! alte Logscreen 

! alte Physscreen 

! AX<1920 bedeutet, daß die Screen- 

! unter Null käme, wenn man den 
! Bildschirm-Speicher an den ge- 

! zeigten Ausschnitt anpaßt. 

! deshalb Screenadresse auf Null 

! sonst 

! Screenadresse auf linke, obere 

! Ausschnittecke -2000 setzen, 

! damit der Screen-Versprung nicht 
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Endif ! 

Void Xbios(5,L:B%,L:B%,-1) ! 

Void Inp(2) ! 

Void Xbios(5,L:Log%,L:Phys%,-1) 


so stark ist. 

Log- und Phys-Screen neu setzen 
auf Tastendruck warten 
! Screens wieder zurücksetzen 


Dies ist der anfänglich beschriebene <SPACE>-Modus. Es kann 
ein Versatz von der BMOVE-Anzeige zu dieser Anzeige auftre- 
ten, da der Bmove-Befehl beliebige Startadressen annimmt, 
während der Bildschirmspeicher immer nur an Adressen gelegt 
werden kann, die durch 16 teilbar sind. 


Endi f 
If Y%<25 
S)U_scrol l 
Goto Marke 
Endi f 
If Y%>299 

3D_scrol l 
Goto Marke 
Endi f 
If K% 

3M_key 

Else 

Dpoke 9952,Int(X%/8+0.5)*8 
Endi f 

If YX>24 And Y%<300 
Box X%-1,Y%-1,X%+8,Y%+1 
Box X%-3,YX-3,X%+10,Y%+3 
Endi f 

Mouse Xx%,Yy%,KX 
If (Xx%=X% And Yy%=YX) Or K% 
^Anzeige 
Endif 
Marke: 

Until KeyX=27 
Return 


! Wenn Mauszeiger über Anzeigefenster 
! neuen Speicherbereich holen (-) 

! und wieder von vorn 

! Wenn Mauszeiger unter Anzeige- 
! fenster 

! neuen Speicherbereich holen (+) 

! und wieder von vorn 

! Wenn eine Maustaste gedrückt wurde, 
! dann zur Mausbehandlung 
! keine Maustaste gedrückt! 

! Zeiger auf Byteraster (8 Pixel) 

! einstellen. 

! Mauszeigerersatz zeichnen 


! Neue Mausdaten 

! Mausbewegung oder Knopf gedrückt? 
! Wenn ja, Anzeige aktualisieren. 

! Programmende nur mit <Esc>-Taste 


In der Tf’-Abfrage ’lf Key%=98’ in der letzten Prozedur habe 
ich einen ebenso simplen wie effektiven Trick eingesetzt. Die 
meisten von Ihnen würden die Flag-Umschaltung wahrscheinlich 
folgendermaßen gestalten: 
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GFA-BASIC Tips & Tricks 


If KeyX=98 And FixX=0 
FixX=1 
Goto Label 
Endi f 

If KeyX=98 And Fix%=1 
Fix%=0 
Endi f 
Label: 


Durch ’Fix°/o=Fix% Xor 1’ wird exakt dasselbe erreicht. Durch 
’Xor’ wird nämlich das Flag grundsätzlich auf den anderen 
Zustand (1 zu 0 / 0 zu 1) umgeschaltet. 

Procedure Init ! Screen-Aufbau 

Cls 

Graphmode 2 
Deftext ,16,,13 

Text 122,15,135,"SPEI CHER-SPION" 

Deffill ,0,0 
Deftext ,0,, 

Text 1,19," " 

Print At(3,1);AX" 

Graphmode 1 
Deftext ,0,,4 

Tx1S="<TAB>-Taste=Bit-Edit-Modus | 11 
Tx1$*Tx1S+" Maustaste rechts/links=Byte */• 1" 

Tx2$*"Maus unter/über Bit-Fenster ■" 

Tx2$*Tx2$+" Speicherscrolling (Byte +/- 160)" 

Tx3$="Zusätzlich Maustaste links/rechts/" 

Tx3$=Tx3$+"beide=Byte +/- 400/1600/3600" 

Text 265,6,Tx1$ 

Text 265,13,Tx2S 
Text 265,20,Tx3S 

Print At(8,21);"Format: Adresse: Inhalt:" 

Print At(68,23);"Hexa:» 

Print At(68,21);"ASCII:" 

Print At(52,21);"<RAM>" 

Deffill ,2,4 
Pbox 470,308,525,394 
For IX=0 To 2 
Line 0,300+IX,639,300+IX 
Line 0,22+IX,639,22+IX 
Next IX 

Line 120,0,120,22 
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Line 255,0,255,22 
Fill 200,1 
Box 479,315,512,348 
Box 479,355,496,372 
Box 479,380,488,389 
Box 503,372,512,389 
Box 10,308,460,394 
Deffill ,1,1 
Return 


Fenster 

Fenster 

Fenster 

Fenster 


für Longword-BiId 
für Wort-BiId 
für Byte-Bild 
für Char-Bi Id 


Soll der angezeigte Speicherbereich in Richtung Adresse Null 
verschoben werden, wird das hier erledigt. 


Procedure U_scroll 
Showm 


If KX And AX>400*(KX A 2) 

I 

Sub AX,400*(KX A 2) 

If AX<1000 And Sc.flg%=1 

I 

Sc.flg%=0 


! Wenn Maustaste und neue BMOVE- 
! Adresse > 0 

! dann, je nach Maustaste, um 

! 400/1600/3600 Bytes vermindern 

! wenn Zähler < 1000 und Umrech - 
! nungsflag gesetzt 
! Umrechnungsflag löschen 


Endi f 

If AX>Ram_topX+10000 And AX<Rom_bot% ! Im leeren Bereich zwischen 
' ! RAM und ROM? 

RomflgX=0 ! auf RAM umschalten 


AX=Xbios(2)+<Int(((RamtopX-10000)-Xbios(2))/160))*160 
1 ! nächste Adresse so setzen, daß 

1 ! Bildschirmspeicher ohne Offset 

1 * gescrollt wird. 

Print At(52,21);"<RAM>" 

Endif 


Else 

Sub AX,160 

If A%<1000 And Sc.flgX=1 

Sc.flgX=0 
Endi f 
If AX<0 
AX=0 
Endi f 

If AX>Ram_topX+10000 And AX<Rom 


! sonst 

! nur um 160 Byte vermindern 
! wenn Zähler < 1000 und Umrech- 
! nungsflag gesetzt 
I Umrechnungsflag löschen 

I Minus-Adressen gibt es nicht 
! 0 = kleinste lesbare Adresse 

botX ! Im leeren Bereich zwischen 
! RAM und ROM? 
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RomflgX=0 ! auf RAH umschalten 

AX=Xbios(2)+(Int(((Ram_topX-10000)-Xbios(2))/160))*160 
1 ! nächste Adresse wie oben 

Print At(52,21 ); ,, <RAM>" 

Endif 

SlAnzeige ! und Anzeige aktualisieren 

Endif 

Print AtfS.D.-AX' 1 ! Adresse der linken, oberen 

' ! Ausschnittecke anzeigen 

Hi dem 
Return 

Die Verschiebung des angezeigten Speicherbereichs in Richtung 
RAM-Ende findet hier statt. 


Procedure 0_scroll 
Showm 

If XX And AX<Rom_botX+158000 ! Maustaste gedrückt und noch im 

1 ! lesbaren Bereich? 

Add AX,400*(KX A 2) I dann, je nach Maustaste, um 

1 ! 400/1600/3600 Bytes erhöhen 

If AX>1000 And Sc.flgX=0 I Zähler > 1000 u.Umrechnungsflag=0 

Sc.flgX»1 I Umrechnungsflag=1 

AX*Xbios(2>-(Int((Xbios(2)-AX)/160)+1)*160 

' I Zähler so setzen, daß der Bild- 

1 ! schirmspeicher ohne störendes 

1 I Offset gescrollt wird 

Endi f 

If AX>Ram_topX And AX<Rom_botX-10000 ! Im leeren Bereich zwischen 
1 ! RAM und ROM? 

RomflgX=1 ! dann auf ROM umschalten 

AX=Rom_botX-10000 ! Zähler auf 10000 Byte unter 

Print At(52,21);">ROM<" ! ROM-Start setzen 

Endi f 

Else ! keine Maustaste gedrückt, bzw. 

' ! oberhalb des ROM-Endes 

Add AX,160 ! nur 160 Byte (2 Zeilen/Schritt) 

If AX>1000 And Sc.flg%=0 ! Zähler > 1000 u.Umrechnungsflag=0 

Sc.flgX=1 ! Umrechnungsflag=1 

AX=Xbios(2)-(Int((Xbios(2)-AX)/160)+1)*160 

1 ! Zähler so setzen, daß der Bild- 

1 ! schirmspeicher ohne störendes 

1 ! Offset gescrollt wird 


Endif 
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If AX>Rom_bot%+158000 ! oberhalb ROM-Ende? 

Sub A%,160 ! Zähler-Addition rückgängig machen 

Endi f 

If A%>Ram_top% And A%<Rom_bot%-10000 ! Im leeren Bereich zwischen 


■ ! 

Romflg%=1 ! 

A%=Rom_bot%-10000 I 

Print At(52,21);">ROM<" ! 

Endi f 

SAnzeige ! 

Endi f 

Print At(3,1);A%" ! 

Hi dem 
Return 


RAM und ROM? 
dann auf ROM umschalten 
Zähler auf 10000 Byte unter 
ROM-Start setzen 

und Anzeige aktualisieren 

Adresse der linken, oberen 
Ausschnittecke anzeigen 


In den beiden vorangegangenen Prozeduren werden Sie sich 
vielleicht über das Umschalten von RAM auf ROM und zurück 
gewundert haben. Das heißt nichts anderes, als daß diese beiden 
Speicher um etliche MEGA-Adressen auseinander liegen und 
eine 2Bomben-Errormeldung dadurch verhindert wird, daß der 
dazwischen liegende Bereich, der für den BMOVE-Befehl nicht 
erreichbar ist, übersprungen wird. Innerhalb des ROMs kann der 
BMOVE-Befehl dann wieder eingesetzt werden. Allerdings nur 
in Richtung RAM. 

Hier werden die Maustasten-Funktionen im Haupt-Modus aus¬ 
geführt. 


Procedure M_key 
If K%=1 
If X%>7 

Dpoke 9952,Int(X%/8)*8-8 

i 

Goto Weiter 
Endi f 

If XX=<7 And YX>24 
Dpoke 9954,Y%-1 
Dpoke 9952,639 
Endi f 
Endi f 


• Wenn linke Maustaste 

! und X-Koordinate größer 7 
! dann Mauszeiger im Byteraster 

um 1 Byte nach links und 

! nächste Abfrage überspringen 

! Zeiger auf erstem Byte der Zeile? 
! dann eine Zeile hoch 

• und auf letztes Byte setzen 
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If K%=2 
If X%<631 

Dpoke 9952,Int(X%/8)*8+8 

Goto Weiter 
Endi f 

If X%=>631 And Y%<300 
Zeile? 

Dpoke 9954,Y%+1 
Dpoke 9952,0^ 

Endi f 
Weiter: 

Endi f 
Return 


! Wenn rechte Maustaste 
! und X-Koordinate kleiner 631 
! dann Mauszeiger im Byteraster 

um 1 Byte nach rechts und 
! nächste Abfrage überspringen 

! Zeiger auf letztem Byte der 

! Dann eine Zeile abwärts 


Die verwendeten DPOKEs in der letzten Prozedur werden am 
Ende des Kapitels unter 'Spezial-Adressen’ beschrieben. 

Durch die Routine M-key wird bewirkt, daß nur durch acht 
teilbare Positionen auf dem Bildschirm in X-Richtung einge¬ 
nommen werden können, da die Bytes ja bekanntlicherweise aus 
8 Bits (= 8 Pixel) bestehen. Der Witz an der Sache ist, daß mit 
diesen Dpokes der Original-Mauszeiger (der in diesem Fall aus¬ 
geschaltet ist) mitpositioniert wird. Es findet also eine echte 
Maus-Skalierung statt! 

Unter dem großen Bit-Fenster befindet sich das Anzeigefenster 
für die aktuellen Byte/Word/Longword-Inhalte, sowie die 
ASCII- und Hexa-Anzeige, das Bitmuster des aktuellen Long- 
words und die Longword-, Word-, Byte- und Char-Images. 
Diese Anzeige spielt sich in der folgenden Prozedur ab. 


Procedure Anzeige 

If FixX=0 ! Byte-Fixierung aus? 

ByteX=A%+(YX-25)*80+Int(X%/8) I zu untersuchende Byteadresse: 

Endi f 

If Byte%<1 ! 

ByteX=1 
Endi f 

1 A% = erstes Byte links oben im 

' Fenster 



Dem Computer über die Schulter geschaut 


23 


1 + ((MausY-Rand oben)*80 Byte je 

1 Zeile) 

1 + Integer(MausX / 8 Pixel je Byte) 

WordX=Int(8yteX/2)*2 ! zugehöriges Wort festste!len: 

' (Integer(Byteadresse / 2)) * 2 

• = gerade Wortadresse 

Bin_Puffer$=String$(32,"0") ! Puffer für Binärzahl vorbereiten 

Rset Bin_Puffer$=Bin$(Lpeek(WordX)) • Binär-Langwort einsetzen 
For IX=1 To 4 ! 4 Hexa-Bytestrings 

Hex_buff$(IX)=String$(2,"0") ! jeweils mit zwei Nullen vorbereiten 
Rset Hex_buffS(IX)=Hex$(Peek(WordX+IX-1)) ! und jeweils das Hexa- 
1 Byte einsetzen (4 Byte 

1 ab Wortadresse) 

Next IX ! nächstes Byte. 

1 ! Und Werte anzeigen: 

Print At(8,22);"1 LONG ab "'WordX 1 " "Lpeek(WordX) 1 . 

Print At(8,23);"2 WORD ab 

11 'WordX.Dpeek(WordX) ’Dpeek(WordX+2).. 

Print At(8,24);"4 BYTE ab '"WordX"'" 

Print Peek(WordX)'Peek(WordX+1)'Peek(WordX+2)'Peek(WordX+3)'.. 

Print At(68,22)' 

For IX=0 To 3 

Out 5,Peek(WordX+IX) ! Alle 4 Byte als ASCII-Zeichen zeigen 

Next IX 
Print "" 


Print At(68,24);Hex_buff$(1)'Hex_buffS(2)'Hex_buff$<3)'Hex buff$(4)' 
For IX=0 To 127 Step 4 !32 Langworte im 

Lpoke Xbios(2)+25340+(IX/4)*80,Lpeek(WordX+IX)! Langwort-Fenster 


If Mid$(Bin_Puffer$,Int(IX/4)+1,1)="1" 


zeigen. 

Wenn Bit 
"Int(IX/4)+1" 


Deffill ,1,1 

I 

Pbox 12+IX/4*14,385,24+1X/4*14,392 

I 

Else 

Deffill ,0,0 

Pbox 12+IX/4*14,385,24+IX/4*14,392 
Endif 


! gesetzt ist, 

! Füllmuster auf 
! schwarz 
! und Bit groß 
f zeichnen. 

! Wenn nicht gesetzt, 

I Füllmuster auf weiß 
! u. groß gezeichnetes 
! Bit löschen. 


Next IX 

For IX=0 To 31 Step 2 ! 

Dpoke Xbios(2)+28540+(IX/2)*80,Dpeek(WordX+IX)! 
■ ! 


16 Worte im 
Wort-Fenster 
anzeigen. 


Next IX 
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For IX=0 To 7 

Poke Xbios(2)+30540+IX*80,Peek(ByteX+IX) 

I 

Next 1% 

For IX=0 To 15 

Poke Xbios(2>+29903+1X*80,Peek(ByteX+1X*256> 
Next IX 
Return 


! 8 Byte im 
! Byte-Fenster 
! anzeigen. 

! 16 Byte im 
! Char-Fenster anzeigen 


Die letzte Schleife ’Char-Fenster’ ist eigentlich nur für die 
interessant, die noch mit einem Disketten-TOS arbeiten. Da das 
von Diskette geladene TOS in den ersten 200 KByte des Spei¬ 
chers abgelegt wird, hat man hier direkten Zugriff auf den 
Zeichensatz-Speicher (s. Spezial-Adressen). 

Ein Speicher-Spion ohne die Möglichkeit, in das Geschehen ein- 
greifen zu können, wäre nur die Hälfte wert. Mit der nächsten 
Prozedur wird die Edition des Speicherinhalts ermöglicht. 


Procedure Edit 

Get 0,0,639,24,Headline$ ! Infozeile des Hauptmodus sichern 

FixX=0 ! Byte-Fixierung ausschalten 


Showm 

E.start3: 

Deffill ,0,0 
Pbox 0,0,639,24 
Oeftext ,16,,13 
Text 10,18,"EDIT-M00US" 

Line 123,0,123,23 
Deffill ,2,4 
Fill 60,2 
Deftext ,0,,4 

Tx1$=" <Tab> = Image load / save| <Esc> = Edit - Ende 
Tx1$=Tx1$+" Das Longword-Bitmuster unter" 

Tx2S=" <-Pfeil-Taste = Byte-1 | >-Pfeil-Taste = Byte+1 
Tx2$=Tx2$+" der Ziffern-Anzeige kann mit" 

Tx3$=" A -PfeiITaste = Byte-80 | v-Pfeil-Taste = Byte+80 
Tx3$=Tx3$+" der Maus editiert werden." 

Text 130,7,Tx1$ 

Text 130,14,Tx2$ 

Text 130,21,Tx3$ 

Repeat ! Editor-Schleife 

Mouse ExX,EyX,k% ! Neue Mauswerte 


! 

j 

! 

i 


! |Aufbau 
! jder 
! jlnfo- 
|"! |Zeile 
! j für 
|"! jden 
! j Ed i t - 

|"! jModus 
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Nur wenn Mauszeiger im Blockfenster 
22000 Byte Speicherblock anzeigen 
! Mauszeigerersatz zeichnen 


If EyX<300 

Bmove A%,Xbios(2)+2000,22000 
Box XX-1, YX-1,XX+8,YX+1 
Box XX-3,YX-3.XX+10,YX+3 
Endi f 

R.keyX=Asc(Right$( InkeyS)) 

Repeat 

Until Len(lnkey$)=0 
If KX=2 
SSnap 
Endi f 

If KX=1 And Ex%>13 And ExX<458 And EyX>384 And Ey%<393!Maustaste 
1 ! gedrückt und Mauszeiger auf 

1 ! Editorfeld? 

IndexX=Int((ExX-12)/14) ! Index des gewählten Bits ermitteln 

I.bitX=(Point(19+IndexX*14,388)) Xor 1 ! gewähltes Bit umschalten 

Deffill ,I.bitX,I.bitX 
Pbox 12+1ndexX*14,385,24+1ndexX*14,392 
If IndexX=0 


! Tastatur abfragen' 

Tastaturpuffer leeren 
rechte Maustaste gedrückt? 
zur Schnappschuß-Prozedur 


A2X=Lpeek(Word%) Xor (2^(31 -Index%)*(-1)) 
Else 

A2X=Lpeek(Uord%) Xor (2'(31-IndexX)) 

Endi f 


Bit zeichnen 
Wenn Negativ-Bit 
(32.) gewählt, 
dann XOR negiert. 
Bits 1-31 gewählt! 
Dann Bit umkehren 


Diese beiden merkwürdigen If-Abfragen haben den Grund, daß 
im größten, vom ST verdaubaren Zahlenformat (Bit 0 - 31 = 32 
Bit) das letzte Bit (Bit 31) zur Identifikation des Vorzeichens 
verwendet wird. Da wir aber volle 32 Bits analysieren wollen, 
muß die automatische Umschaltung von Positiv- auf Nega¬ 
tivwerte - sobald das Bit 31 gesetzt ist - unterdrückt werden. 
Genau das wird durch die XOR-Negierung hier erreicht. 


Lpoke WordX,A2X 
Bmove AX,Xbios(2)+2000,22000 
Box XX-1,YX-1,XX+8,YX+1 
Box XX-3,YX-3,XX+10,YX+3 
^Anzeige 
Pause 5 
Endi f 
If R.keyX 
If R.keyX=9 

Alert 2,"Image laden oder spe 


! In Speicher zurück 
! Speicherblock anzeigen 
! Mauszeigerersatz zeichnen 

! Anzeige aktualisieren 


• Tastatur? 

! Tab-Taste ? 
ehern?",1,"LOAD|SAVE",I.bkX 
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If I.bk%=2 

Bmove AX,Xbios(2)+2000,22000 
Sget F.scrS 
aimagesave 
Else 

aimageload(Uord%) 

Endif 
Endi f 

If R.key%=77 
Add X%,8 
KX=2 
3M_key 
Endi f 

If R.keyX=75 
Sub X%,8 
KX=1 
ÜHkey 
Endif 

If R.keyX=80 And Y%<299 
Add Y%,1 
Endi f 

If R.key%=72 And YX>27 
Sub Y%,1 
Endif 

Bmove A%,Xbios(2)+2000,22000 
aAnzeige 
Endi f 

Until R.key%=27 ! 

Put 0,0,Headline$ ! 

Hi dem 
Return 


! Image speichern? 

! Speicherblock anzeigen 
! Screen sichern 
! Image speichern 
! Image laden! 

! dann lade 


! Rechts-Pfeiltaste gedrückt? 

! X-Koordinate 1 Byte nach rechts, 
! rechte Maustaste simulieren, 

! Speicherscrolling-Routine ( + ) 

! Links-PfeiItaste gedrückt? 

! X-Koordinate 1 Byte nach links, 

! linke Maustaste simulieren, 

! Speicherscrolling-Routine ( - ) 

! Abwarts-Pfeiltaste gedrückt? 

! Y-Koordinate 1 Zeile abwärts 

! Aufwärts-PfeiItaste gedrückt? 

! Y-Koordinate 1 Zeile aufwärts 

! Speicherblock anzeigen 
! und Anzeige aktualisieren 

Schleife verlassen, wenn <Esc>-Taste 
Infozeile für Hauptmodus restaurieren 


In der nächsten Prozedur werden beliebige Word- bzw. Long- 
word-Images (16 bzw. 32 Bits breit) im Dezimal- und Binärforat 
als Datazeilen auf Diskette abgespeichert. Die Binärfiles erhalten 
die Extension ’BI’, sowie entweder den Wert 1 (=Word-Image) 
oder 2 (=Longword-Image). Dies ist notwenig, um die verschie¬ 
denen Formate auf Diskette unterscheiden zu können. Wollen Sie 
also ein Word-Binär-Image laden, wählen Sie eine Datei mit der 
Extension ’.BH’. Die Dezimal-Files tragen die Extension ’DZ’ 
sowie die Identifikationsziffer. Diese Data-Files lassen sich über 
die Interpretermenü-Funktion ’Merge’ in den Programmspeicher 
laden. Vorher muß jedoch die Extension ’.LST’ in der Indexzeile 
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der ’Merge’- Fileselectbox gelöscht und der graue Kopfbalken 
angeklickt werden. Die Binär-Image-Dateien lassen sich mit dem 
Programm ’IMAGEDIT.BAS’ laden und weiterverarbeiten. 

Dabei ist zu beachten, daß die hier gespeicherten Word- 
Dezimal-Images noch keinen Mausaktionspunkt beinhalten. 
Wollen Sie diese Images für Mauszeiger in ’IMAGLOAD.BAS’ 
verwenden, müssen Sie vorher die Binär-Files mit 
’IMAGEDIT.BAS’ laden und wieder abspeichern. Anschließend 
können Sie den Aktionspunkt bestimmen. Die dazugehörige 
Word-Dezimal-Image-Datei wird dann um diese beiden Werte 
(X/Y-Rasterkoord. des Aktionspunktes) erweitert. 


Procedure Imagesave 

Local I.bk2X,FlJ,Num_flS,L$,D.peek$,L.peekS,El$,IX,JX 
Alert 2,"16Bit oder 32Bit-Image?",2,"16Bit|32Bit", I .bk2X 
Al$="Aus dem Image-Fenster|oder aus der großen|8it-Screen?" 

Alert 2,AIS,1,"IMAGE|SCREEN",I.bk3X 

UrdmemX=UordX ! aktuell angezeigtes Word sichern 

If I.bk3X=2 ! 

Graphmode 3 
Sput F.scrS 
Repeat 

Mouse XiX,YiX,KX 


Image aus der Screen holen? 

Screen restaurieren 
Positionierungs-Schleife 
Mausstatus 


Box XiX-16*1.bk2X-1,YiX-16*1.bk2X-1,Xi%+2,Yi%+2 !Auswahl-Rahmen 
Box XiX-16*1.bk2X,YiX-16*I.bk2X,Xi%+1,Yi%+1 ! " 

Poke 3583,0 I Maus-Links/Rechts-Bewegung aus 

’ * (s. 'Spezial-Adressen') 

Poke 3584,0 ! Maus-Auf/Ab-Bewegung aus 

Repeat ! Warteschleife 

Until Mousek Or Peek(3583) Or Peek(3584)! bis Maustaste gedrückt 

' ! oder Maus bewegt wurde 

Box XiX-16*1,bk2X-1,Yi%-16*1,bk2%-1,XiX+2,YiX+2 • Rahmen aus 

Box XiX-16*1.bk2X,YiX-16*1.bk2X,XiX+1,YiX+1 ! » 

Until Mousek ! Exit, wenn Maustaste 

Get XiX-16*1.bk2X+1,YiX-16*1.bk2%+1,XiX,YiX,ImgS ! Image puffern 

Graphmode 1 

WordX=Varptr(Img$)+6 ! Lese-Zeiger auf Puffer-Anfang 

If Mousek=2 ! Rechte Maustaste gedrückt? 

Goto No.load ! Abbruch 

Endi f 
Endi f 

Fileselect "\*.BI»+Str$(I.bk2%),".BI"+StrS(I,bk2X),Fl$ 

1 ! SAVE-Datei wählen 
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If Fl*=''" Or Fl*= M \.BI"+Str*(I .bk2X)! 


ungültiger Dateiname? 
dann Abbruch 


Goto No.load ! 

Endi f 

If Instr(Right*(FlS,4),".")=0 ! 

Fl*=Fl*+".BI"+Str$(I.bk2X) ! 

Endif 

If Right*<FlS,3)<>"BI"+Str*(I.bk2X)! 

Mid*(Fl*,Len(Fl$)-3 ( 3)=“BI H +Str*(I.bk2X)! dann berichtigen 
Endi f 

Nun_f l*=Lef t$(F 1 $, Len(F1$)-3)+"DZ"+Str$(I.bk2%) ! Dezimal-Filename 
1 ! bi Iden 


keine Extension gesetzt? 
dann nachholen 

falsche Extension? 


Open "0 ,l ,#98,Niii)_f 1$ 

Open "0",#99,Fl* 

For IX=0 To I.bk2X*16-1 
Clr El* 

L*=String*(16*I.bk2X,"0") 
If I.bk2X=1 


! 


Dezimal-File öffnen 

Binär-File öffnen 

alle Imagezeilen durchgehen 

1. Puffer löschen 

2. Puffer vorbereiten 
Word-Image speichern? 

Binärstring bilden 


D.peek*=Bin*(Dpeek(WordX+IX*2))! 
Mid*(LS,16-Len(D.peek*)+1,Len(D.peek$))=D.peek$ ! in 2.Puffer 
1 ! einbauen 

Else ! Longword-Image speichern! 

L.peek*=Bin*(Lpeek(UordX+IX*4))! Binärstring bilden 
Mid*(L*,32-Len(L.peek*) + 1,Len(l_.peek*))=L.peek* ! in 2.Puffer 
1 ! einbauen 


Endi f 

For JX=0 To I.bk2X*16-1 
If Mid$(L$,JX+1,1 )= ,, 1" 
El*=ElS+"1" 

Else 

El$=ElS+"0" 

Endif 
Next JX 


! alle Bits der Zeile durchgehen 

! Bit gesetzt? 

! '1* in 1. Puffer eintragen 

! Bit nicht gesetzt! 

! '0' in 1. Puffer eintragen 

! nächstes Bit 


Hier sehen Sie, wozu die ’BinS’-Funktion verwendet werden 
kann. Hätten wir diese Funktion nicht zur Verfügung, müßte 
man die gesetzten Bits in einem Word nach folgendem Schema 
ermitteln: 

XyzX=25536 

For N.bitX=15 Downto 0 
If XyzX And 2 A N.bitX 
X*=X*+"1» 
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Else 

X$=X$+"0" 
Endi f 

Next N.bitX 
XX=Val("&X"+X$) 
Print BinS(XyzX) 
Print Bin$(XX) 


Bei einem Word ist das auch noch recht einfach. Bei einem 
Longword wird dieses Verfahren schon etwas komplizierter. 
Deshalb setze ich oben im Programm einfach einen Binärstring 
in einen vorbereiteten Stringpuffer und frage der Reihe nach die 
Zeichen des Strings ab. 


If IX Mod 16=0 
Print #98;"D 
Endi f 

Print #98;Val("&X"+El$); 
schreiben 

If (IX+1) Mod 16=0 
Print #98 
Else 

Print #98;","; 

Endi f 

Print #99;"D ";El$ 

Next IX 
CI ose #98 
CI ose #99 
No.load: 

WordX=Wrc*TiemX 

Return 


! erste Data-Zeilenposition? 

! *D' (Data) in File schreiben 

• Dezimal-Zeilenwert in File 

! Data-Zeile (16 Werte) voll? 

! Zeilenende schreiben 

! noch nicht voll! 

! Data-Trennkomma schreiben 

! Binärzeile schreiben 

! Dezimal-Datei schließen 
! Binär-Datei schließen 

! Original-Anzeige-Word restaurieren 


Mit dieser Prozedur lassen sich Disketten-Imagefiles (s. unter 
’lmage-Loader’) in den Speicher übertragen. Sie werden ab der 
aktuellen Word-Position eingesetzt. 

Procedure Imageload(AdrX) 

Local TrnsS,IX.PktX,FrmX.P.Iine$,P_name$ 

Fileselect "\*.BI?",".BI",P_name$ ! 'BI'-Datei wählen 

If Exist(P_name$) And Left$(Right$(P_name$,3),2)="BI" 

1 ! Datei vorhanden? 

Open "I",#1,P_name$ ! Datei öffnen 
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FrmX=Val(Right$(P_name$))*16 ! Format feststellen (16 / 32) 

For IX=1 To Frm% ! Lese-Schleife 

Input #1,P.line$ ! Bitmusterzeile lesen 

Trns$=Trns$+Right$(P.line$,Frm%)! Gesamtstring bilden 

Next IX 
Close #1 

For PktX=0 To FrmX-1 ! Ausgabe-Schleife 

B. wertX=Val("&X"+Mid$(Trns$,PktX*FrmX+1,Frm%)) ! Dez.-Wert bilden 


If F rmX=32 

Lpoke AdrX+PktX*4,B.wertX 


Longword-Muster ? 
dann Wert L-Poken 


Endi f 

If FrmX=16 

Dpoke Adr%+PktX*2,B.wertX 
Endi f 
Next PktX 
Endi f 


! Word-Muster ? 

! dann Wert D-Poken 

! nächste Imagezeile 


Return 


Wer schon einmal mit ’WORDPLUS’ gearbeitet hat, wird evtl, 
den Nutzen von ’SNAPSHOT.ACC’ kennengelernt haben. Diese 
Prozedur speichert ebenfalls beliebige Bildausschnitte im GFA- 
GET/PUT-Format ab, um sie hinterher anderweitig weiterver¬ 
wenden zu können. Im Programm ’GFA_DMON.BAS’ finden 
Sie eine Prozedur ’Snapload’, die Sie zum Laden und Plazieren 
der Ausschnitte verwenden können. Am Ende dieses Kapitels 
finden Sie unter ’Aus Data mach’ PUT’ auch den Aufbau dieses 
Spezialstrings erläutert. 


Procedure Snap 

Local Snap$,XxX,Yy%,XX,YX,XX,Sn.bkX,Bz.bkX 
Alert 2,"Snappschuß speichern?",1,"OKAY|NE IN",Sn.bkX 
If Sn.bkX=1 ! Schnappschuß speichern? 

Alert 2,"Byte-Zeiger an oder aus?",1," AN | AUS ",Bz.bk% 
If Bz.bkX=2 ! Bytezeiger löschen? 

Bmove AX,Xbios(2)+2000,22000 ! dann Speicherblock neu 

Endi f 


Defmouse 3 
Repeat 

Until Mousek 
If Mousek=1 
Graphmode 3 
Mouse XxX,YyX,K% 


! Zeigefinger-Maus 

! Auf Mausklick warten 
! linke Maustaste gedrückt? 

! Mauskoord. linke/obere Ecke 




Dem Computer über die Schulter geschaut 


31 


Repeat ! 

Mouse X%,Y%,K% ! 

Box XxX,Yy%,X%,Y% ! 

Poke 3583,0 ! 

I { 

Poke 3584,0 ! 

Repeat ! 

Until Mousek=0 Or Peek(3583) 

• ! 
Box XxX,Yy%,X%,Y% ! 

Until Housek=0 ! 

Get Xx%,YyX+19,XX,YX+19,Snap$ ! 
Fi leselect "A:\*.*",".SNP",S$ I 
Deftext ,0,,6 

If S$>"" And S$<>"A:\.SNP" ! 

If Instr(Right$(S$,4),".")=0! 

SS=S$+".SNP" ! 

Endif 

If Right$(SS,3)<>"SNP" ! 

Mid$(S$,Len(S$)-3,3)="SNP"! 
Endi f 


Gurmi - Rahmen-Sch lei fe 

Mauskoord. rechte/untere Ecke 
Box zeichnen 

Maus-Links/Rechts-Bewegung aus 
s. 'Spezial-Adressen' 

Maus-Auf/Ab-Bewegung aus 
Warteschleife 

Or Peek(3584)l bis Maustaste frei 
oder Maus bewegt wurde 
Box löschen 

Exit, wenn Maustaste frei 
Ausschnitt puffern 
Snap-Datei auswählen 

gültiger Dateiname? 
keine Extension gesetzt? 
dann nachholen 

falsche Extension? 
dann berichtigen 


Bsave S$,Varptr(Snap$),Len(Snap$) ! Snapfile speichern 
Endi f 
Endi f 


Graphmode 1 
Defmouse 0 
Endi f 


Pause 10 
Return 


1.2 Tischlein deck’ dich 

Auf der Diskette finden Sie einen Ordner mit Namen 
'IMAGES’. Er enthält schon einen komplett zusammengestellten 
Austauschsatz für alle AES-Images. Um zu sehen, wie ein eige¬ 
nes Desktop, eigene Alerts und eigene Mäuse aussehen könnten, 
starten Sie einfach das Programm ’IMAGLOAD.BAS’, öffnen bei 
jeder Abfrage diesen Ordner und klicken anschließend ’OK’ an. 
Verlassen Sie nun das GFA-BASIC, und schauen Sie sich das 
Desktop an. 
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Übrigens, wundern Sie sich nicht darüber, daß ich immer wie¬ 
der in systemloser Unregelmäßigkeit einmal 'Image’ und einmal 
'Icon' schreibe. Es ist völlig egal, wie Sie die kleinen Bildchen 
nennen, beide Ausdrücke heißen im übertragenen Sinn ganz 
einfach 'Bild'. 

Wurden mit dem Programm ’IMAGEDIT.BAS’ (s. unter 'Image- 
Editor') Desktop-, Alert- oder Maus-Images entwickelt oder mit 
’MEMO_SPY.BAS’ solche Icons abgespeichert, können diese 
hiermit in den Image-Speicher des AES eingebaut werden. 
Maus-Icons müssen jedoch vorher grundsätzlich mit 
’IMAGEDIT.BAS’ abgespeichert werden, da nur dort die jewei¬ 
ligen Aktionspunkt-Koordinaten in das Imagefile eingebaut 
werden. Außerdem müssen für alle Desktop- und Maus-Icons 
die dazugehörigen Masken-Files vorhanden sein. Für diesen 
Loader werden nur die Dezimal-Files der Icons benötigt. Die 
Binär-Files sind hauptsächlich zur Weiterverarbeitung in eigenen 
Programmen gedacht. 

Um die Dateien hiermit ohne großen Aufwand laden zu können, 
sind sie unter feststehenden Dateinamen abzuspeichern. Wollen 
Sie mehrere Austauschsätze vorrätig halten, müssen Sie sie unter 
diesen Namen in verschiedenen Ordnern abspeichern. Obwohl 
Sie hier nach einem Ordner gefragt werden, können die Icons 
auch auf der obersten Directory-Ebene gespeichert sein, solange 
alle zu einem Satz gehörigen Dateien mit diesen festgelegten 
Dateinamen ebenfalls auf dieser Ebene liegen. 

Die Maus-Icon-Dateien sind mit dem Namen ’MAUSICN?.DZ1’ 
abzuspeichern. Für die Mausmasken-Dateien gilt der Name 
’MAUSMSK?.DZ1’. 

Das Fragezeichen steht hier für eine Ziffer, die von Ihnen ange¬ 
geben wird. Mit dieser Ziffer wird bestimmt, an welche 
’Defmouse’-Position der neue Mauszeiger gesetzt werden soll. 
Also der Mauszeiger mit der Bezeichnung ’MAUSICNl.DZl’ 
und ’MAUSMSK 1 .DZ1’ kann dann später mit dem Befehl 
’DEFMOUSE 1’ aufgerufen werden. Die Ziffern sind durch die 
Defmouse-Parameter natürlich auf den Bereich 0-7 begrenzt. 
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Für die Desktop-Icons gilt ’DESKICN?.DZ2’ und für die ent¬ 
sprechenden Desktop-Masken ’DESK.MSK?.DZ2’. 

Hier steht das Fragezeichen für eine Ziffer im Bereich von 1 bis 
5. Es können also nur 5 Icons ausgetauscht werden: 

1. Laufwerk-Symbol 

2. Ordner-Symbol 

3. Mülleimer-Symbol 

4. Programm-Symbol 

5. Datei-Symbol 


DESK DATEI INDEX EXTRAS 



Abb. 2: Desktop einmal anders 


Die Alertbox-Icons tragen den Namen ’ALRTICN?.DZ2\ An¬ 
statt des Fragezeichens können hier die Ziffern 1 bis 3 verwen¬ 
det werden. Es gibt nur die Möglichkeit, 3 verschiedene Icons 
als Verzierung für Alertboxen gleichzeitig zu verwalten. 


ALRTICN1.DZ2 kann später durch ’Alert 1,. 

ALRTICN2.DZ2 kann später durch ’Alert 2,.’ und 

ALRTICN3.DZ2 kann später durch ’Alert 3,.’ 
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aufgerufen werden. Mit den Prozeduren im Programm 
’SET_ALRT.BAS’ können diese Icons auch während eines eige¬ 
nen Programms beliebig oft ausgetauscht werden, um so grafisch 
die verschiedenen Alertboxen untermalen zu können. 

Bei den Alert-Icons wird keine Maske benötigt, da sie grund¬ 
sätzlich auf weißem (bzw. hintergrundfarbenem) Untergrund an¬ 
gezeigt werden. 

' Progranm: IHAGLOAD.BAS 

I 

I | IIIIIIIIIIIIIIIIIIIIIIIIIIIMIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII | 

' | IMAGE-LOADER 

' I.I 

I I IIIIIIIIIIIIII H IIIIII MM IIIIII H Hll II11 INI II M IUI IIII llllllll l| || | 


Print At(18,4);"**********************************************•■ 
Print At(18,5);"* *» 

Print At(18,6);"* Was soll ausgetauscht werden ? *" 

Print At(18,7);"* . *" 

Print At(18,8);"* *" 


Print At(18,9);"* 

Haussatz 



(1) 

*11 

Print At(18,10);"* 

Desksatz 



(2) 

*11 

Print At(18,11);"* 

Alertsatz 



(3) 

*11 

Print At(18,12);"* 

Desksatz 

4- 

Maussatz 

(4) 

*11 

Print At(18,13);"* 

Maussatz 

4- 

Alertsatz 

(5) 

*11 

Print At(18,14);"* 

Alertsatz 

4- 

Desksatz 

(6) 

*11 

Print At(18,15);"* 

Maussatz 

4- 

Desksatz + Alertsatz 

(7) 

*11 

Print At(18,16);"* 

Abbruch 



(8) 

*11 


Print At(18,17); 
Print At(18,18); 


l**********************************************H 


Repeat 

AX=Val(Input$(1)) 
If A%=8 
Edit 
Endi f 

Until AX>0 And A%<8 
Cls 


! Eingabeschleife 
! Menüpunkt eingeben 
! Abbruch? 

! Abbruch! 

! gültige Ziffer eingegeben? 


On AX Gosub P1,P2,P3,P4,P5,P6,P7 ! Verteiler 


Mit der Prozedur ’PT wird der komplette Maus-Icon- und 
Maskensatz ausgewechselt. 
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Procedure PI 
A$-"" 

Restore Maus_0_icn 
For IX=0 To 15 
Read DatX 
AS=A$+Mki$(DatX) 

Next IX 

B$=Left$(A$,len(A$)-1) 

C$=Right$(A$) 

I 

A$=Space$(Len(A$)) 


! Data-Zeiger setzen 

• 16 Haus-Icon-Zeilen 

• lesen 

! String bi Iden 

! A$ auseinandernehmen, damit 
! sich der String nicht im 
! Speicher selber findet. 

! A$ wieder löschen 


Der hier in A$ gebildete String ist ja auch im Speicher vorhan¬ 
den. Er soll sich aber nicht selbst finden, sondern andere 
Strings, die denselben Inhalt haben. Deswegen wird hier der 
String bis auf das äußerste rechte Zeichen reduziert. Das letzte 
Zeichen des Strings wird separat gespeichert. Diese beiden Teil¬ 
strings werden an die Such-Prozedur übergeben und dort wieder 
zusammengesetzt. Vorher wird allerdings der Originalstring wie¬ 
der gelöscht. Trotzdem wird sich der String mindestens einmal 
selber finden. Und zwar an der Stelle im Speicher, die der 
Interpreter benutzt, um bei der Prozedur-Abarbeitung den 
Suchstring zusammenzusetzen. Würde man jedoch nur einen 
String übergeben, würde er sich ständig selbst finden, da er 
durch die Garbage-Collection immer weiter kopiert werden 
würde, bzw. weil er ja dann auch im Arbeitsspeicher steht. 

Die drei numerischen Parameter bedeuten hier die Start- und 
die Endadresse des zu durchsuchenden Speicherbereichs, sowie 
ein Flag, das in der Suchprozedur bewirkt, daß der richtige 
Offset vom gesuchten Image zum entsprechenden Blockanfang 
zurückgerechnet wird. 

3Find(B$,C$,2048,250000,1,*AdrX) ! String im Speicher suchen 
If AdrX I String gefunden? 

Print At(25,3),•"Mausordner öffnen und OK klicken" 

Fileselect "\*.8I1","DEFM0USE",Maus$ I Ordner öffnen 
Cls 

For IX=0 To 7 ! 8 Maus-Icons 

Open "I",#1,Maus$+"MAUSMSK"+Str$(IX)+".DZ1"!Icondatei öffnen 
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Seek #1,2 


For JX=0 To 15 ! 

Input #1;A% ! 

Dpoke AdrX+lX*74+JX*2,AX ! 

' ! 

Next JX ! 

Close #1 ! 

Open "I",#1,Haus$+ ,, MAUSI CN"+Str$( IX)+" 
Seek #1,2 ! 

For JX=0 To 15 I 

Input #1;AX ! 

Dpoke AdrX+32+IX*74+J%*2,AX ! 

Next JX 
Input #1;AX;B% 

Lpoke AdrX-10+IX*74,AX*65536+BX 
Close #1 
Next IX 
Endi f 


Filepointer auf drittes 
Byte setzen (Byte 1 u. 2 
enthalten 'D 1 = Abk. für 
■Data '). 

16 Iconzeilen 
Zeilenwert lesen 
in AES-Speicher 
eintragen 
nächste Zei le 
Datei schließen 
.DZ1"!Maskendatei öffnen 
siehe oben 
16 Maskenzeilen 
Zeilenwert lesen 
in Speicher eintragen 
nächste Zeile 
Akt ionspunkt-X,-Y lesen 
in Speicher schreiben 
Maskendatei schließen 
Nächstes Icon 


Maus_0_icn: 

Data 2048,2108,98,1730,50820,6538,6996,1760,7512,13308,24928,17118, 
17624,19030,13332,0, 

Return 


Mit der ersten For/Next-Schleife in der obigen Prozedur und 
dem folgenden ’@Find’-Aufruf wird zuerst die Data-Zeile unter 
’Maus_0_icn:’ eingelesen und im Speicher nach der Adresse 
ihres Vorkommens gesucht. 

Da nicht immer 100%ig feststeht, wo sich die AES-Icons befin¬ 
den, muß auf diese Art ihre Position festgestellt werden, um die 
neuen Icons an die richtige Adresse schreiben zu können. Der 
Grund dafür, warum die Icons an unterschiedlichen Stellen lie¬ 
gen können, ist hauptsächlich darin zu sehen, daß mit dem 
’Auto’-Ordner gebootete Programme die Adressenlage verschie¬ 
ben können. 

Allen Befürchtungen zum Trotz, daß evtl, die neuen MEGA- 
TOS-Versionen die Lage der Icons verschieben, kann man hier 
relativ sicher davon ausgehen, daß sie korrekt eingesetzt werden. 
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Es sei denn, die Images haben in neuen TOS-Versionen ein an¬ 
deres Bitmuster oder sind nur noch im ROM zu finden. 

Im ersten Fall brauchen nur die Data-Zeilen in den Satz-Proze¬ 
duren, die ja die Bitmuster enthalten, geändert zu werden. Im 
zweiten, unwahrscheinlichen Fall ließe sich dann allerdings nur 
noch mit EPROMs etwas ausrichten. 

Mit der Prozedur ’P2’ wird in Zusammenarbeit mit der Proze¬ 
dur ’D read’ der komplette Deskicon- und maskensatz ausge¬ 
wechselt. 

Hier wird ebenfalls die eben beschriebene Suche durchgeführt. 


Procedure P2 
A$="" 

Restore Desk_1_icn 
For IX=0 To 31 
Read Dat% 
A$=A$+Mkl$(DatX) 
Next IX 

B$=Left$(A$,Len(A$) ■ 
C$=Right$(A$) 


1) 


A$=SpaceS(len(A$)) 

3F i r>d(B$,C$, 2048,250000,2,* AdrX) 

If AdrX 

Print At(25,3);"Deskordner öffnen und OK klicken" 

Fileselect "\*.BI2","DESKTOPS",Desk$ ! Ordner öffnen 
Cts 


! Data-Zeiger setzen 
! 32 Deskicon-Zeilen 
! lesen 

! String bilden 

* A$ auseinandernehmen, damit 
! sich der String nicht im 
! Speicher selber findet. 

! A$ wieder löschen 
! String im Speicher suchen 
! String gefunden? 


For IX=0 To 4 ! 5 mal 

aO_read(Desk$+"DESKMSK"+Str$(IX+1)+".DZ2",AdrX+IX*256) 
aD_read(Desk$+"DESKICN"+Str$(IX+1)+".DZ2",AdrX+128+1X*256) 

1 Desktop-Masken und -Icons einiesen und eintragen 
Next IX 
Endi f 

Desk_1_icn; 

Data 0,0,4064,6192,8351772,12681220,58785783,33554453,268172243, 
134614103,1073481549,536871257,-463,-2147483037,-2147482939,-2147482743 
Data -2147482861,-2147483099,-2147483063,-2147482991,-2114059485, 
-2130574778,-2130574708,-2114059496,-2147483088,-2147483040, 
-2096758080,-2013527168,-2147482880,-2147483136,-2147483136,-512 
Return 
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Mit dieser Prozedur wird in Zusammenarbeit mit der Prozedur 
’D_read’ der komplette Alert-Icon-Satz ausgewechselt. 


Procedure P3 
A$="“ 

Restore A.lert_1_icn 
For IX=0 To 31 
Read Dat% 
A$=A$+Hkl$(Dat%) 

Next IX 

BS=Left$(AS,Len(AS)-1) 
CS=RightS(AS) 


Data-Zeiger setzen 
16 Maus-Icon-Zeilen 
lesen 

String bilden 

AS auseinandernehmen, damit 
sich der String nicht im 
Speicher selber findet. 

AS wieder löschen 
String im Speicher suchen 
String gefunden? 


AS=SpaceS(Len(A$)) 

3Find(B$,CS,2048,250000,3,*AdrX) 

If AdrX 

Print At(25,3);"Alertordner öffnen und OK klicken" 

Fileselect "\*.BI2","F_ALERTS",AlrtS ! Ordner öffnen 
Cls 

For IX=0 To 2 ! drei Alert-Icons 

30_read(AlrtS+"ALRTICN"+Str$(IX+1)+".DZ2",Adr%+IX*128)! lesen/ 
1 ! setzen 

Next IX 


Endi f 

A.lert_1_icn: 

Data 245760,417792,897024,1824768,3664896,7337472,14433024,29113728, 
58474176,117194592,234635184,469516248,939278316,1878802422,-537116677, 
-1073987587 

Data -1073987587,-537116677,1878802422,939278316,469762008,234880944, 
117194592,58474176,29113728,14433024,7337472,3664896,1824768,897024, 
417792,245760 
Return 


Die folgende Prozedur übernimmt das Lesen der 32-Bit-Daten 
aus den Dateien und das Übertragen der Daten in den AES- 
Icon-Speicher. 


Procedure D_read(File$,AdressX) 

Open "I ,, ,#1,Fi le$ ! Datei öffnen 

Seek #1,2 ! Filepointer auf 3. Byte 

setzen 
32 Zeilen 


For JX=0 To 31 
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If JX=16 
Relseek #1,2 


Endi f 

Input #1;AX 
Lpoke AdressX+JX*4,AX 
Next JX 
CI ose #1 
Return 
Procedure P4 
3P1 
3P2 

Return 
Procedure P5 
3P1 
ap3 
Return 

Procedure P6 
3P2 
3P3 
Return 

Procedure P7 
3P1 

ap2 
ap3 

Return 

Wie oben bereits angedeutet, wird hier das jeweilige Bitmuster 
im Speicher gesucht und die gefundene Adresse an die Satz- 
Routine zurückgeliefert, die dann dort die Icons und Masken 
einsetzt. 

Diese Prozedur eignet sich hervorragend als Utility zur String¬ 
suche im Speicher. In diesem Fall muß jedoch in ’Typ%’ eine 3 
übergeben werden, damit von der gefundenen Adresse kein 
Offset abgezogen wird. 

Warum zwei Strings übergeben werden, wurde bereits beim 
Prozedur-Aufruf weiter oben erläutert. Mit den Parametern 
’St%’ und ’En%’ können Sie auch den Bereich bestimmen, in 


! Data-Zeuenende? 

• dann 2 Byte CD 1 als Abk. 

! für 'Data' am Zeilen- 

! anfang) überspringen. 

! Icon/Masken-Zeile lesen 
! in Speicher schreiben 

! nächste Icon/Masken-Zeile 
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dem gesucht werden soll. In ’A_%’ wird im Erfolgsfall die be¬ 
treffende Adresse zurückgeliefert. Wurde der String nicht ge¬ 
funden, wird in A_% eine Null zurückgegeben. 

Diese Prozedur ist darauf ausgerichtet, daß die Suche bei dem 
ersten gefundenen String abgebrochen wird. Setzt man in der 
Abfrage ’lf Ofs%’ einen rekursiven Aufruf ein, z.B. 
’@Find(Strl$,Str2$,I%+Ofs%,En%,3,*A_%)’, und davor evtl, ein 
’Print I%+Ofs%-l’ können so alle Strings mit dem gesuchten 
Inhalt im Speicher der Reihe nach ausfindig gemacht werden. 

Procedure Find(Str1$,Str2$,StX,EnX,TypX,A X) 


B$=Space$(32000) 

For IX=StX To EnX Step 30000 
Bmove IX,Varptr(8$),32000 
OfsX=Instr(B$,Str1$+Str2$) 
Exit If OfsX 
Hext IX 
If OfsX 
If TypX=1 

*A_X=IX+OfsX-180-1 
■ 
i 


Endif 
If TypX=2 

*A X=IX+OfsX-128-1 


Endi f 
If TypX=3 
*A X=IX+OfsX-1 


Endif 
Else 
*A_X=0 
Endi f 
Return 


Puffer vorbereiten 
Lese-Schleife 
Speicherbereich in Puffer 
Bitmuster darin enthalten? 
Abbruch, wenn ja 

String gefunden? 

Typ 1 (Maus-Icon)? 

Da der Eindeutigkeit halber 
das 'Bienchen' gesucht wurde, 
muß die Adresse auf den 
Anfang des Pfeil-Maske zurück¬ 
gesetzt werden (-180). 

Typ 2 (Deskicon)? 

Hier wurde nach dem Icon 
des Disketten-Symbols gesucht. 
Der Anfang der ersten Maske 
liegt 128 Byte zurück (-128). 

Typ 3 (Alerticon)? 

Die Alert-Icons verfügen über 
keine Maske, da sie nur auf 
weißem Hintergrund verwendet 
werden. Also braucht die Adresse 
nicht reduziert zu werden. 

String nicht gefunden 
Null zurückgeben 
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1.3 Images zum Selbermachen - ein Image-Editor 

Ich habe nun keine Mühe gescheut. Ihnen die Möglichkeit zu 
eröffnen, sich eine eigene Programm-Umgebung zu schaffen. 

Schauen Sie sich die folgenden vier Programme in Ruhe an. Mit 
diesen Programmen und Teilen daraus können Sie nun innerhalb 
Ihrer Programme gezielt verschiedene Alert-Symbole und belie¬ 
bige Maus-Zeiger aufrufen. Das Besondere daran ist, wie vorher 
schon erwähnt, daß diese Icons fest in das GEM installiert sind, 
solange Sie nicht ausgewechselt werden bzw. nicht der RESET- 
Knopf gedrückt wird. 

Sie können zwar auch über den ’DEFMOUSE X$’-Befehl eigene 
Mauszeiger entwerfen. Diese haben jedoch den Nachteil, daß Sie 
nur innerhalb laufender GFA-Programme zu verwenden sind. 
Gefällt Ihnen der schwarze Mauszeiger bei der Edition Ihrer 
Programme nicht, installieren Sie Ihren eigenen Maussatz. In 
Verbindung mit den selbst entworfenen Desktop-Icons können 
Sie dann auch nach Programmende Ihren persönlichen Eindruck 
hinterlassen. 

Als erstes werde ich ein kleines Editor-Programm vorstellen, das 
speziell auf den Zweck des GEM-Icon-Austauschs zugeschnitten 
ist. Außerdem hoffe ich. Ihnen einen Einblick in den grund¬ 
legenden Aufbau eines modularen Editors sowie einige allgemein 
brauchbare Prozeduren anbieten zu können. Editoren haben eine 
wichtige Funktion in allen Programmen, die dem Anwender 
eigene Entwurfsmöglichkeiten zur Verfügung stellen sollen. 

Ich habe diesen Editor gezielt so kurz wie möglich gehalten, 
damit er nicht zu kompliziert wird und Sie die Chance haben, 
ihn nach Ihren Bedürfnissen anpassen zu können. 

Eine Schlüsselrolle bei der Anpassung spielen hier die Variablen: 

M% Matrixgröße 
ö% Rand-Offset links u. oben 

R% Editorpunktgröße in Pixel 
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Mit Änderung dieser drei Variablen können Sie die Position, 
Anzahl der vertikalen/horizontalen Editorpunkte und die Größe 
der Punkte bestimmen. 

1 Programm: IMAGEEDIT.BAS 

I | IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIMMIIIIIIIIIIIIIIIIIIIIIIIII | 

' j IMAGE - EDITOR 


I I IIIIIIIIIIII11IIIIIIII M KM II ■ IIIIIII M IIIIIIII M IIIIIIIIIIII llll IIII I 

SImagedit 
Edi t 

Procedure Imagedit ! Hauptprozedur 

Do ! Hauptschleife 

Alert 2,"16Bit - IMAGE|32Bit- IMAGE",2,"WORD|LONG",BIX 
If B1X=1 ! Wenn 16-Bit-Image 

Al$="Soll eine Mausmaske oder|ein Mausbild editiert werden ?" 
Alert 2,Al$,0,"MASKE|BILD",B6X ! Maske oder Bild ? 

If B6X=1 

Fn$="Mausmsk" ! Dateinamen setzen 

Else 

Fn$="Mausicn" ! " " 

Endi f 

Else ! sonst 

Al$="Möchten Sie Alert-Icons|oder Desktop-Icons editieren ?" 
Alert 2,Al$,0,"ALERT|DESKT0P",B7X 
If B7X=1 

Fn$="Alrticn" ! Dateinamen setzen 

Else 

Al$="Möchten Sie eine Deskmaske|oder ein Deskicon editieren ?" 
Alert 2,Al$,0,"MASKE|ICON",B8X 
If B8X=1 

Fn$="Deskmsk" ! Dateinamen setzen 

Else 

Fn$="Deskicn" ! " " 

Endi f 
Endi f 
Endi f 

If B5X=2 And MX=(16*B1X) I Wenn Raster geändert 

Alert 2,"IMAGE-Editor löschen ?",1,"OKAY|NEIN",B2X 
Endi f 

Alert 2,"IMAGE laden ?",2,"OKAY|NEIN",B3% 

MX=16*B1X ! MX = Matrixgröße 

OX=50 ! OX = Rand-Offset links u. oben 
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RX=Int((400-OX*2)/MX) ! RX = Editorpunktgröße in Pixel 

If B2X<>2 ! Screen löschen ? 


a0rawgrid(M%,0%,R%) ! ja 

Endi f 

If B3X=1 ! Image laden ? 

aimageload(M%/B1%,M%,0%,R%) < ja 

Endif 

aSetboxes(MX,0X,RX,0,*D1X,*D2X)! Image editieren (D1X/D2X =Durmies) 
Alert 2,"IMAGE speichern ?",2,"OKAY|NEIN»,B4X 
If B4%=1 ! Image speichern ? 

3ImagesavelMX/BIX,MX,0%,RX) ! ja 

If B6X=2 ! Wurde Maus-Icon editiert ? 

3Get_hotspot(MX,0X,RX) ! Aktionspunkt ? 

Endi f 
Endi f 


Alert 2,"Programmende ?",2,"OKAY|NEIN",85X 
Exit If B5X=1 


Loop 

Return 


Nach Maus-Icon-Edition wird in der nächsten Prozedur der 
Aktionspunkt erfragt. Die lokalen Variablen ’Gr%\ ’Os%’, ’Fa%’ 
haben in allen Prozeduren dieselbe Bedeutung: 

Gr% Format (16 oder 32) 

Os% Entfernung des Editorfeldes zum oberen und 
linken Rand 

Fa% Editorpunktgröße in Pixel 


Procedure Get_hotspot(GrX,OsX,FaX) 

For IX=0 To GrX-1 ! Alle Editor-Zeilen 

For JX=0 To GrX-1 ! Alle Zeilen-Punkte 

If Point(OsX+JX*FaX+FaX/2,OsX+IX*FaX+FaX/2) I Feld schwarz ? 
Deffill ,0,0 ! dann markieren 

Pbox 0sX+3+JX*FaX,0sX+3+IX*FaX,0sX-3+JX*FaX+FaX,0sX-3+IX*FaX+Fa% 
Endi f 
Next JX 
Next IX 

Alert 1,"Bitte Aktions-Punkt setzen !",1,"0KAY",BbX 
aSetboxes(GrX,OsX,FaX,1,*XaX,*YaX) ! Aktionspunkt klicken 
Open "U",#99,Num_fIS ! Maus-Icon-Datei öffnen 

Seek #99,Lof(#99)-2 ! Pointer auf File-Ende -(CR+LF) 

Print #99;",";XaX;",";YaX ! Aktion-Koordinaten anhängen 

Close #99 
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Return 

Procedure Drawgrid(GrX,OsX,FaX) ! Zeichnen des Editorfeldes 

Local IX 
Color 1 
Graphmode 1 
Deffill ,2,4 
Pbox 0,0,639,399 

Print At(46,12);" Linke Maustaste = Punkt setzen “ 

Print At(46,13);" Rechte Maustaste = Punkt löschen " 

Print At(46,14);" sonstige Taste = Abbruch " 

Deffill ,0,0 

Pbox OsX,OsX,OsX+GrX*FaX,OsX+GrX*FaX !weißen Hintergrund 

Graphmode 1 

Pbox OsX+GrX*FaX+1,0sX,0s%+GrX*Fa%+2+GrX,0sX+GrX+1 
Graphmode 3 

Pbox OsX+G rX* F aX+1,OsX,OsX+ G rX* F aX+ 2+G rX,OsX+G rX+1 
Graphmode 1 

For IX=0 To GrX ! Raster zeichnen 

Line OsX+1X* F aX,OsX,OsX+1%* F aX,OsX+ F aX*G rX 
Line OsX,OsX+1X* F aX,OsX+ F a%*G r%,OsX+1%* F a% 

Hext IX 
Return 


Das Ermitteln des Editorpunkt-Indices und Zeichnen/Löschen 
der Editorpunkte wird in dieser Prozedur erledigt. 

Fl% Flag für Aktionspunkt-Bestimmung bei Maus- 
Icons 

Xb% Rückgabevariable an Get hotspot 
Yb% Rückgabevariable an Get_hotspot 


Procedure Setboxes(GrX,OsX,FaX,FlX,Xb%,YbX) 

Local XX,YX 
Graphmode 1 

Repeat ! Klick-Schleife 

Mouse XX,YX,KX 

XX=lnt((XX-OsX)/FaX) ! Editor-Index horizontal 

YX=Int((YX-OsX)/FaX) ! Editor-Index vertikal 

If XX=>0 And XX<GrX And YX=>0 And YX<Gr% ! Im Editor ? 

If KX=1 ! linke Maustaste ? 

Color 1 

Deffill ,1,1 ! schwarze Box setzen 

Pbox OsX+XX*FaX,OsX+YX*Fa%,OsX+X%*Fa%+Fa%,OsX+Y%*Fa%+Fa% 

Plot OsX+2+Gr%*Fa%+X%,0sX+1+Y% 
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Endi f 

If KX=2 ! rechte Maustaste ? 

Color 0 

Deffilt ,0,0 ! weiße Box setzen 

Pbox OsX+XX* FaX,OsX+YX*FaX,OsX+XX*FaX+ FaX,OsX+YX*FaX+ FaX 
Plot OsX+2+GrX*FaX+XX,OsX+1+YX 
Endi f 
Endi f 

Until Len(Inkey$) Or (FIX=1 And XX) ! Abbruch, wenn Tastatur 
1 ! (oder Mausknopf nach 

1 ! Aktionspunkt-Abfrage) 

*XbX=XX ! Rückgabe an Get_hotspot 

*YbX=YX ! 

Return 


Diese Prozedur regelt das Einlesen der Musterdaten und die 
Übertragung in das Editor-Raster. 

Te% Teiler zur Formatbestimmung im Dateinamen 
(16 oder 32) 


Procedure Imageload(TeX,GrX,OsX,FaX) 


Local F1$,E1$,JX,IX 
3Head(1/'Image laden",0) 

Fileselect "\*.BI"+Str$(GrX/TeX), 
aHead(0,"",0) 

If Exist(FlS) 

Open "I",#99,Fl$ 

For IX=0 To GrX-1 
Input #99, EIS 
El$=Right$(El$,GrX) 

For JX=0 To GrX-1 

If Mid$(El$,JX+1,1 )="1" 
Color 1 


.BI"+Str$(GrX/TeX),Fl$ 

! Datei vorhanden ? 

! Öffnen 

! Alle Editor-Zeilen 
! einiesen 

I 0 für 'Data' abschneiden 
! Alle Zeilenpunkte 
! Bit gesetzt ? 

! dann in Editor einsetzen 


Deffill ,1,1 

Pbox OsX+JX*FaX,OsX+IX*FaX,OsX+jX*FaX+ FaX,OsX+IX*FaX+FaX 
Plot OsX+ 2+GrX*FaX+ JX,OsX+1X+1 
Endif 


Next JX 
Next IX 
Close #99 
Endi f 


Return 
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Diese Prozedur erledigt die Muster-Speicherung auf Disk: 


Procedure Imagesave(TeX,GrX,OsX,FaX) 

Local Fl$,E1$,JX,IX 
3Head(1."Image speichern",0) 

Fi leselect "\*.BI"+StrS(GrX/TeX),Fn$+"?.8I"+StrS(GrX/TeX),Fl$ 

aHead(0, ,M, ,0) 

If F1$="" Or Fl$="\.BI"+Str$(GrX/TeX) ! Ungültiger Dateiname ? 
Goto No.load ! dann zurück 


Endi f 

If Instr(Right$(Fl$,4),".")=0 ! Extension gesetzt ? 

FlS=Fl$+".BI"+Str$(GrX/TeX) ! Nein? Dann ergänzen 

Endi f 

If Right$(Fl$,3)<>"BI"+Str$(GrX/TeX) ! Extension für Binärfile 

' ! korrekt? 

Mid$(Fl$,Len(Fl$)-3,3)="BI"+Str$(GrX/TeX) ! Nein? Korrigieren! 
Endi f 

Nunf lS=Left$(FlS,Len(Fl$)-3)+"DZ"+Str$(GrX/TeX) 

1 ! Name für Dezimalfile 

Open "0",#98,Nmi_f 1$ ! Dezimal-File öffnen 

Open "0",#99,Fl$ ! Binär-File öffnen 

For IX=0 To GrX-1 ! Alle Editor-Zeilen 

Clr EIS 


For JX=0 To GrX-1 ! Alle Zeilen-Punkte 

If Point(OsX+JX*FaX+FaX/2,OsX+IX*FaX+FaX/2) ! Punkt gesetzt? 

El$=El$+"1" I Ja? *1' in String setzen 

Else 

El$=El$+"0" ! Nein? '0' setzen 


Endi f 
Next JX 
If IX Mod 16=0 
Print #98;"D »; 

Endi f 

Print #98;Val("&X"+El$) 
If (IX+1) Mod 16=0 
Print #98 
Else 

Print #98;","; 

Endi f 

Print #99;"D ";El$ 

Next IX 
CI ose #98 
CI ose #99 


! Zeilenanfang? 

I D für 'Data 1 schreiben 

I Dezimalwert schreiben 
! Dezimal-Data-Zeilenende? 

! Ja? CR / LF setzen 

! Nein? Komma setzen 

! Binär-Data-Zeile schreiben 


No.load: 


Return 
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Ein Utility zum Fileselect-Box-Aufruf 

Hiermit wird ein Rahmen mit Text über die Box gezeichnet, was 
natürlich einen professionellen Eindruck beim Anwender hin¬ 
terläßt und außerdem, was wohl wichtiger sein sollte, informativ 
ist. 

Durch die Abfrage der Bildschirmauflösung und die Anpassung 
der Koordinaten kann dieses Utility auch in MIDRES verwendet 
werden. 

Flg% l=Box setzen / 0=Box löschen 
Tx$ Boxtext 

0% Offset zum oberen Fensterrand bei ’Openw 0’ 


Procedure Head(FlgX,Tx$,OX) 
Local RX,HX,DX 
If FlgX=1 
RX=3-Xbios(4) 
HX=Len(Tx$)*4 
DX=2-RX 


• 1 = Textbox zeichnen 
! RX=Teiler für Auflösung 
I HX=halbe Textlänge 
! DX=Anpassung für HIRES 


Graphmode 1 
Deftext 1,1,, 13 

Get 158,0,481,399/RX/6,Part.bkS !Hintergrund abspeichern 
Deffill 1,2,2 !graue Hintergrundbox 

Pbox 158,16/RX+DX*16-0X,481,(50/RX-DX*12)+DX*16-0X 
Deffill 1,0,0 !weiße Textbox 

Pbox 320-HX-2,16/RX+DX*16-OX,320+H%+2,(50/RX-DX*12)+DX*16-OX 
Text 320-HX,(44/RX-DX*10)+DX*16-OX,Tx$ 

Else ! wenn FlgX<>1 

Put 158,0,Part.bk$ I Hintergrund wieder restaurieren 


Partbk$= 1 " 1 

Endif 


! String löschen 


Return 
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1.4 öfter mal was Neues 

Mit dem Programm ’IMAGE-LOADER’ haben Sie gelernt, wie 
man die einzelnen AES-Icon-Sätze ’en Block’ austauscht. Damit 
haben Sie noch nicht die Möglichkeit, innerhalb Ihrer Pro¬ 
gramme ständig verschiedene Icons einzusetzen. Die folgenden 
beiden Programme erlauben es, beliebige Maus- oder Alert¬ 
icons bei Bedarf einzusetzen. 

Während Sie im Normalfall nur drei Alert-Icons zur Verfügung 
haben (’STOP’, ’!’ und ’?’), können Sie nun die Icons je nach 
Bedarf so oft wie nötig austauschen und immer wieder die 
Alertboxen gezielt grafisch ausstatten. 

In Verbindung mit der AES-Form-Alertbox (s. unter ’AES’) ha¬ 
ben Sie somit ein breiteres Verwendungsspektrum für die Alert¬ 
boxen. 


1.4.1 Alert-Icons austauschen 

• Programm: SET_ALERT.BAS 


| IIIIIIIIIIIIMHMIIIIIIIIIIIIIIIMIHMIIIIIMIIMMIIIIIMilliIIMil | 

j ALERTS - SETTING 


I HIHI MH IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII I 


AS^'" 

Restore A.lert_1_icn 
For IX=0 To 31 
Read DatX 
AS=AS+Mkl$(DatX) 

Next IX 

B$=LeftS(AS,Len(AS)-1) 

CS=Right$(AS) 

I 

A$=SpaceS(Len(A$)) 

3Find(B$,CS,2048,250000,*AdrX) 
If AdrX 

aAlert_read(0,*AX) 


I Data-Zeiger setzen 
I 16 Maus-Icon-Zeilen 
I lesen 

! String bilden 

! AS auseinandernehmen, damit 
! sich der String nicht im 
! Speicher selber findet. 

• AS wieder löschen 
! String im Speicher suchen 
! String gefunden ? 

! Alertdatas lesen 
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For JX=1 To AX ! Alle neuen Alert-Icons 

3Setalert(JX,1) ! neues Icon setzen 

Alert 1,"Dies ist ein neues Icon !",1,"Oh,schön",BackX 
Next JX 
Endif 


In der obigen For/Next-Schleife werden die gelesenen Alert¬ 
icons, die sich nun in dem zweidimensionalen Integer-Array 
’A_pIane%()’ befinden, in den AES-Speicher eingetragen und in 
dem Alertbox-Aufruf angezeigt. Wurden die Alertdatas also in 
das Feld eingelesen, übernimmt die folgende Prozedur das 
Installieren der Alert-Icons. 


Die ausgetauschten Icons bleiben auch nach Programmende im 
Speicher und können erst wieder durch erneuten Austausch oder 
RESET gelöscht werden. 

Index% gibt an, welches neue Alert-Image aus dem Feld 
verwendet werden soll (Startindex = 1). 

Nummer% ist der Icon-Index der Alertbox-Variante, in wel¬ 
cher Sie das neue Icon verwenden wollen. 


Alert 1,. = Nummer 1 

Alert 2,. = Nummer 2 

Alert 3,. = Nummer 3 


Procedure SetalerttIndexX.NummerX) 

For IX=0 To 31 ! 32 Icon-Zeilen 

Lpoke AdrX+CNummerX-l)*128+IX*4,A_planeX(IndexX,IX) I in Speicher 
1 ! Ipoken 

Next IX 
Return 


In der nächsten Prozedur werden die Datas des Alert-Icons ein¬ 
gelesen und in das zweidimensionale Array übertragen. Die erste 
Ebene dieses Feldes enthält den Feldindex des Alert-Icons, 
während die zweite die Icon-Daten enthält. 
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Anzahl% beliebiger Wert, der die maximal zu lesenden 

Alert-Icons angibt. Wird eine Null übergeben, 
werden solange Datas gelesen, bis die Endmarkie¬ 
rung ’**’ erreicht wird. 

Ret% Rückgabewert. Enthält die tatsächlich geladene 

Anzahl. 


Procedure Alert_read(Anzah1%,Ret%) 
If AnzahIX=0 ! 

AnzahIX=20 ! 

Endif 

Local A_nunnerX,J% 

Erase A_planeX() 

Dim A_planeX(AnzahlX,31) 

Restore Adatas 
Do 

Inc A_nunr)erX 
For JX=0 To 31 
Read BitsS 
Exit If 


AnzahlÜbergabe = 0? 
max. Anzahl bestimmen (beliebig) 


Feld löschen 
Feld dimensionieren 
Data-Zeiger setzen 
Lese-Schleife 
Index-Zähler +1 
32 Datas 
Data lesen 

Bits$="**" Or (AnzahlX>0 And A_nummer%=AnzahlX) 

1 ! Abbruch wenn Endmarkierung oder 

1 ! max. vorgegebene Anzahl erreicht 

A_planeX(A nummerX,JX)=Val(BitsS) 'Data in Feld eintragen 


Wollen Sie statt der Dezimaldatas lieber die Binärdatas verwen¬ 
den, brauchen Sie in der vorstehenden Programmzeile nur den 
Ausdruck hinter dem Gleichheitszeichen gegen ’Val("&X"+Bits$)’ 
auszutauschen. 


Next JX ! nächstes Data 

Exit If Bits$="**" Or (AnzahlX>0 And A_nurmerX=AnzahlX) 

1 I Abbruch wenn Endmarkierung oder 

1 ! max. vorgegebene Anzahl erreicht 

Loop 

*RetX=A_nummerX-1 I tatsächlich gelesene Anzahl 

1 ! zurückgeben 

Return 

Procedure Find(Strn,Str2S,StX,EnX,A_X) 

B$=Space$(32000) ! Puffer vorbereiten 



Dem Computer über die Schulter geschaut 


51 


For IX=StX To EnX Step 30000 
Bmove IX,Varptr(B$),32000 
OfsX=Instr(BS,Str1$+Str2S) 
Exit If OfsX 
Next IX 
If OfsX 

*A_X=IX+0fsX-1 
Else 
*A_X=0 
Endi f 


Lese-Schleife 
Speicherbereich in Puffer 
Bitmuster darin enthalten? 
Abbruch, wenn ja 


! Alert-Icon-Adresse zurückgeben 


Return 

A_datas: 

Data 268431360,469769216,806094592,1611792768,1276248256,-1845355424, 

- 2113527264,-2113142224,-1944583664,-1877992432,-1844305904, 

-1944968688,-2146690032,-872415216,-872409040,1611405408 
Data 1879838656,939528288,1040195616,532684832,134209568,16773152,14576, 
8088,3976,-1879023160,-1751248648,-178970512,-1789575168,-1789579264, 
-1789591552,8192 

Data 1984,1771826272,1800985136,2077807632,1800984592,1801376784,6160, 

250896,489488,791584,3938336,15361056,25964576,21633088,26040384, 

21474300 

Data 128162822,231858178,216955907,175687169,203407889,167921321, 

221936977,111307441,62799841,66846721,60841985,22041602,27978414, 

13989212,7076600,2033600 

Data 16777152,64312672,113245872,91226968,111393192,98438872,109052008, 
94322264,523314046,828848611,1305162991,2077105401,1774980301, 
1221332165,1220807109,1219758917 

Data 1218186821,1820592205,646187851,814619078,478884044,126476920, 
8929856,8930880,11013184,11303232,6783360,3160832,1369600,919040,461824, 
129024 
Data ** 

A.lert_1_icn: 

Data 245760,417792,897024,1824768,3664896,7337472,14433024,29113728, 

58474176,117194592,234635184,469516248,939278316,1878802422,-537116677, 

-1073987587 

Data -1073987587,- 537116677,1878802422,939278316,469762008,234880944, 
117194592,58474176,29113728,14433024,7337472,3664896,1824768,897024, 
417792,245760 
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1.4.2 Maus-Icons austauschen 

Mit diesem Programm haben Sie die Möglichkeit, sich eigene 
Mauszeigersätze im AES anzeigen zu lassen. Dazu müssen die 
Maus-Icons allerdings mit ’IMAGEDIT.BAS’ bearbeitet bzw. 
zumindest abgespeichert worden sein. Außerdem ist zu jedem 
Icon die entsprechende Mausmaske zu erstellen. In den Data- 
Zeilen am Programmende müssen im Wechsel immer zuerst die 
Mausmaskendaten und dann die jeweiligen Icon-Daten stehen, 
wobei die Maus-Icon-Data-Zeilen je 18 Werte enthalten. Als 
Endmarkierung für den gesamten Data-Block ist das '^'-Zeichen 
zu verwenden (s.unten). 

Um den Mauszeiger direkt zu ändern, benutzen Sie folgenden 
Trick: Starten Sie das Programm und klicken Sie dann so oft mit 
der Maus, bis die gewünschte Maus erscheint. ANschließend 
brechen Sie das Programm mit <Ctrl>+<Shift>+<Alt> ab. 


Progranm: SETMAUS.BAS 

| II 111111111111111111111111111111111111111111111111(111 IIIIIIIIIIIIIIII 

HAUS - SETTING 


I IIII■■ MIHIIIIIIIIIIIHUIIMIIIIIIIIIIIIIHIIIIIIIMM IIIIIHM)II I 


A$=MM 

Restore Maus_0_icn 
For IX=0 To 15 
Read DatX 
AS=AS+MkiS(DatX) 

Next IX 

BS=LeftS(A$,Len(AS)-1) 
C$=Right$(A$) 

A$=SpaceS(Len(AS)) 

3Find(BS,CS,2048,250000,*AdrX) 
If AdrX 

aMaus_read(0,*AX) 

Print "Maustaste drücken" 

For JX=1 To AX 
Repeat 

Until Mousek 
asetmaus(J%,0) 


I Data-Zeiger setzen 
! 16 Maus-Icon-Zeilen 
! lesen 

I String bilden 

I AS auseinandernehmen, damit 
! sich der String nicht im 
• Speicher selber findet. 

! AS wieder löschen 
! String im Speicher suchen 
! String gefunden? 

! Mausdatas lesen 

! Alle neuen Mäuse 

! Auf Mausklick warten 
! neue Maus setzen 
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Defmouse 0 
Pause 20 
Next JX 
Endif 


Wurden die Mausdatas in das Feld eingelesen, können Sie mit 
dieser Prozedur die Mauszeiger austauschen. Der Vorteil gegen¬ 
über der ’DEFMOUSE MausS’-Funktion ist hierbei, daß diese 
Mauszeiger auch innerhalb von Fileselect- und Alertboxen bzw. 
auch im Interpreter verwendet werden können. Dazu muß das 
gewünschte Icon mit ’DEFMOUSE 0’ aufgerufen werden. 

Bei den Mäusen ist es wichtig zu wissen, daß die Angaben über 
den Aktionspunkt, also der Punkt im Mausbild, auf den sich die 
Aktionen (Mausklick / Punkt fixieren) beziehen sollen, genau 10 
Bytes vor der dazugehörigen Mausmaske im Speicher beginnen. 
Und zwar die X-Koordinate innerhalb des Mausbildes (0-15) in 
Mausmaskenadresse minus 10 und die Y-Koordinate (0-15) in 
Mausmaskenadresse minus 8. 

Index% gibt an, welches neue Maus-Image aus dem Feld 
verwendet werden soll. 

Nummer% ist der Defmouse-Index, mit welchem das Maus- 
Icon später aufgerufen werden kann. 


Procedure SetmausO ndexX, NummerX) 

For IX=0 To 31 • 32 Zeilen (Maske und Icon) 

Dpoke AdrX+NummerX*74+IX*2,M_planeX(IndexX,IX) ! in Speicher dpoken 
Next IX 

Lpoke AdrX-10+NummerX*74,M_planeXtIndexX,32)*65536+M_planeXtIndexX,33) 
1 ! Aktionspunktkoord. in Speicher 

Return 


In dieser Prozedur werden die Mausdatas (zuerst Mausmaske, 
dann Icon und Aktionpunktkoordinaten) eingelesen und in ein 
zweidimensionales Array übertragen. Die erste Ebene dieses Fel¬ 
des enthält die Nummer des Mauszeigers, während die zweite 
die Mausdaten enthält. 
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Anzahl% beliebiger Wert, der die maximal zu lesenden 

Maussätze angibt. Wird eine Null übergeben, wer¬ 
den solange Datas gelesen, bis die Endmarkierung 
erreicht wird. 

Ret% Rückgabewert. Enthält die tatsächlich geladene 

Anzahl. 


Procedure Maus_read(AnzahlX,RetX) 
If AnzahlX=0 
AnzahlX=20 
Endi f 

Local MnurmerX, JX 

Erase MplaneXO 

Dim M_planeX(AnzahlX,33) 

Restore M_datas 
Do 

Inc M_nummerX 
For JX=0 To 33 


Read Bits* 


Anzahl Übergabe = 0? 
max. Anzahl bestimmen (beliebig) 


Feld löschen 
Feld dimensionieren 
Data-Zeiger setzen 
Lese-Schleife 
Index-Zähler +1 
34 Datas 

(16 für Maske + 16 für Icon + 2 
für Aktionspunkt) 

Data lesen 


Exit If Bits$= ,, * M Or (AnzahlX>0 And M_nummerX=AnzahlX) 

1 ! Abbruch wenn Endmarkierung oder 

1 ! max. vorgegebene Anzahl erreicht 

M_planeX(M_nummerX,JX)=Val(Bits$) 'Data in Feld eintragen 
Next JX ! nächstes Data 


Exit If Bits$="*" Or (AnzahlX>0 And M_nunrierX=Anzahl%) 

1 ! Abbruch wenn Endmarkierung oder 

1 ! max. vorgegebene Anzahl erreicht 


Loop 

*RetX=M nummerX-1 


I tatsächlich gelesene Anzahl 
I zurückgeben 


Die Prozedur 'Find’ ist Ihnen oben schon einmal begegnet. 

Procedure Find(Str1$,Str2S,StX,EnX,A_X) 

BS=Space$(32000) ! Puffer vorbereiten 

For IX=StX To EnX Step 30000 ! Lese-Schleife 

Bmove IX,Varptr(BS),32000 ! Speicherbereich in Puffer 

OfsX=Instr(B$,Str1$+Str2$) ! Bitmuster darin enthalten? 

Exit If OfsX ! Abbruch, wenn ja 
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Next IX 
If OfsX 

*A_X=IX+OfsX-180-1 ! 1. Hausmasken-Adresse zurückgeben 

Else 
*A_X=0 
Endif 
Return 
Hdatas: 

1 Hausindex 1 (Haske) 

Data 65535,65535,65535,65535,65535,65535,65535,65535,65535,65535,65535, 
65535,65535,65535,65535,65535 
1 Hausindex 1 (Icon) 

Data 65535,32769,40953,53235,42981,54219,43413,54315,43605,54891,44085, 
55323,45069,57351,49155,65535,7,8 
1 Hausindex 2 (Haske) 

Data 2016,6168,8772,20082,23130,37449,48765,32769,32769,48765,37449, 
23130,20082,8772,6168,2016 
1 Hausindex 2 (Icon) 

Data 0,2016,7608,12684,8580,24966,16770,32382,32382,16770,24966,8580, 
12684,7608,2016,0,7,7 
1 Hausindex 3 (Haske) 

Data 65472,65472,65472,65472,65534,65534,65534,65534,65534,65535,4095, 
4095,4095,4095,4095,127 
1 Hausindex 3 (Icon) 

Data 59392,44928,59520,3712,65152,24316,24196,16628,32660,1364,1303, 
1524,1031,2045,41,47,1,1 
1 Hausindex 4 (Haske) 

Data 65520,65520,65520,65504,65472,65504,65520,65528,65532,65534,63487, 
58367,511,255,127,62 
' Hausindex 4 (Icon) 

Data 0,32736,27328,21888,27392,21888,27328,23904,30384,25432,16812,214, 
106,54,28,0,1,1 
1 u.s.u 
Data * 

Haus_0_icn: 

Data 2048,2108,98,1730,50820,6538,6996,1760,7512,13308,24928,17118, 
17624,19030,13332,0, 
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1.4.3 Aus Data mach’ PUT 

Mit dem ’MEMOSPY.BAS’ sowie dem ’IMAGEDIT.BAS’ haben 
Sie die Möglichkeit, 16- bzw. 32-Bit-Images als Data-Zeilen auf 
Diskette abzulegen. Eine Verwendungsmöglichkeit dieser Bild¬ 
chen fanden Sie in den vorangegangenen drei Programmen. 

Dieses kleine Programm zeigt Ihnen eine weitere Verwendung 
dieser Images in eigenen Programmen. Es wäre doch schade, 
wenn Sie sich die Arbeit machen, eigene Icons zu entwerfen und 
diese ’nur’ als Mauszeiger, Desktop- oder Alert-Icons einsetzen 
können. Mit dieser Routine werden genau dieselben Data-Zei¬ 
len, die oben verwendet werden, in Get/Put-Strings umgewan¬ 
delt, die Sie dann durch den ’PUT’-Befehl beliebig auf dem 
Bildschirm plazieren oder weiterverarbeiten können. 




SsBßsßaffl'ßraaptfsfflg 

0EDO = 2G0fflS SEP 

rasfl-ßspsa 

OspraafflafflfflB 

flffl SflSSESffl 
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Abb. 3: Icons über IconB 


Bei den Data-Blöcken ist hier zu beachten, daß jeweils kom¬ 
plette Data-Sätze nach Formaten getrennt geladen werden. Die 
Data-Zeile ’Data *’ gilt dabei als Endmarkierung für einen 16- 
Bit-Image-Block und die Zeile ’Data **’ als Endmarkierung für 
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einen 32-Bit-Block. Der Blockstart kann beliebig durch Angabe 
von Sprung-Labels ( hier: L_bin_datas / L_dez_datas / 
W_bin_datas / W_dez_datas) bestimmt werden. Die zusam¬ 
mengehörigen Image-Zeilen werden Hier in einem zweidimen¬ 
sionalen Feld abgelegt, dessen erste Ebene die Image-Nummer 
und dessen zweite Ebene die dazugehörigen Image-Zeilen be¬ 
inhaltet. 

Die Erstellung des PUT-Strings findet in der Prozedur 
’Make_icon’ statt. 

Bei Dezimal-Maus-Icons (’.DZl’), die bereits mit dem 
’IMAGEDIT.BAS’ bearbeitet wurden (!) und hier als PUT-String 
benutzt werden sollen, müssen die letzten beiden Data-Werte der 
Dezimal-Icon-Data-Zeile gelöscht werden, da sonst der Data- 
Zähler falsche Werte liefert. Die Zeile darf also nur 16 Werte 
enthalten! 

Übrigens haben Sie die Möglichkeit, sich Images aus fremden 
Programmen (sofern sie nicht ausdrücklich geschützt sind) zu 
'leihen’, indem Sie nach Beendigung des fremden Programms 
den ’MEMO_SPY.BAS’ starten, sich die evtl, noch im Speicher 
befindlichen Images und Screens suchen und mit der 
'Imagesave'-Funktion die interessanten Teile abspeichern. Dies 
funktioniert allerdings nicht immer. Der Interpreter überschreibt 
meist den Bereich des vorherigen Programms. In Ausnahmefällen 
lassen sich Screen-Teile direkt unterhalb des Bildschirmspeichers 
finden, wo sie bei Fileselect- und Alert-Box-Aufrufen abgelegt 
werden. Verfügen Sie über einen Compiler und compilieren den 
Speicher-Spion, ist die Chance, damit größere Screen-Teile alter 
Programme zu finden, erheblich größer. 


Programm: BIT_READ.BAS 

| iiiiiiii immi minIIIIIIHMIIIIIIIIMUHllllIIIIIMMIIIIIIIHIIM | 

DATA => GET/PUT - KONVERTER ' 


I I II II II IIII M IIHIIIIIIIIII Mil IIIIII llll IIIIIIIIIIII II Mil II H II M II II I 

Dirn A%(3) I Anzahlen der einzelnen Images 

1 ! nach Formaten geordnet. 
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S)W bitread(0,1,*Ptr%) ! 

Lpoke Varptr(AX(0)),PtrX ! 

aL_bitread(0,1,*PtrX) ! 

Lpoke Varptr(AX(1)),PtrX ! 

aw_bitread(0,2,*PtrX) ! 

Lpoke Varptr(AX(2)),PtrX ! 

3L_bitread(0,2,*PtrX) ! 

Lpoke Varptr(AX(3)),PtrX ! 

I 

Print At(1,1);AX(0>;" Mausklicks, 
For IX=1 To AX(0) • 

«üMake_icon(1,1, IX) ! 

await ! 

Next IX 

Print At(1,1);" ,, ;AX(1);" Mauskl 

For IX=1 To AX(1) 
aMake_icon(2,1,IX) 
await 
Next IX 

Print At(1,1);" ";AX(2);" 

For IX=1 To AX(2) 
aMake_icon(1,2,IX) 

await 

Next IX 

Print At(1,1);" ";AX(3) 

For IX=1 To AX(3) 
aMake_icon(2,2,IX) 
auait 

Next IX 


Word-Binär-Datas lesen 
Anzahl in Feld eintragen 
Longword-Binär-Datas lesen 
Anzahl in Feld eintragen 
Word-Oezimal-Datas lesen 
Anzahl in Feld eintragen 
Longword-Dezimal-Datas lesen 
Anzahl in Feld eintragen 

bitte ! " 

Alle Word-Binär-Icons 
bauen und 

auf Mausklick warten und zeigen 

cks, bitte ! " 

Alle Longword-Binär-Icons 
bauen und 

auf Mausklick warten und zeigen 

Mausklicks, bitte ! " 

! Alle Word-Dezimal-Icons 
! bauen und 

! auf Mausklick warten und zeigen 

" Mausklicks, bitte • " 

! Alle Longword-Dezimal-Icons 
I bauen und 

I auf Mausklick warten und zeigen 


Print At(1,1);"beliebige Taste = Ende 
Void Inp(2) 

Edi t 


Nach Aufbau des PUT-Strings wird hier auf einen Mausklick 
gewartet und das Image an der Mausposition gezeichnet. Diese 
Prozedur ist allerdings nur in diesem Beispielprogramm sinnvoll, 
da Sie sonst diese Images wahrscheinlich vom Programm aus 
plazieren werden. 


Procedure Wait 
Repeat 

Until Mousek 


! auf Mausklick warten 
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Put Mousex,Mousey,A$ ! Icon zeichnen 

Pause 20 
Return 


Im Zusammenhang mit der nächsten Prozedur ist es interessant 
zu erfahren, wie ein Get/Put-String aufgebaut ist. 

Bei einem Monochrom-String ist es sehr einfach. Die ersten 6 
Bytes des Strings enthalten drei Words, die der Reihe nach die 
Differenz der beiden gegenüberliegenden X-Koordinaten, die 
Differenz der beiden Y-Koordinaten und die Anzahl der Farb- 
ebenen des Ausschnitts enthalten. Im HIRES-Modus gibt es nur 
eine Farbebene. D.h., ein Pixel auf dem Bildschirm entspricht 
einem Bit im String. Ist ein Bildschirmpunkt schwarz, wird das 
entsprechende Bit im String gesetzt. 


Beispiel: 

Es soll ein Bildausschnitt mit Xl/Yl = 10/12 und X2/Y2 = 
55/34 gespeichert werden. Die ersten drei Words des Strings er¬ 
geben sich aus Mki$(45) (= X2-X1) + Mki$(22) (= Y2-Y1) + 
Mki$(l) (= 1 HIRES-Farbebene). Nun wird die Pixel-Breite 
durch 16 geteilt. Das Ergebnis ist dann der benötigte Speicher¬ 
platz in Words pro Zeile. Bleibt ein Rest, wird ein Word hin¬ 
zugerechnet. 46 / 16 = 2.875, also werden pro Zeile drei Words 
benötigt. Bei 23 Zeilen sind das dann insgesamt 23 * 3 = 69 
Words + 3 Headerwords = 72 Words (144 Bytes). In diesem Fall 
würde also das erste Pixel der ersten Zeile durch das erste Bit 
des ersten Words repräsentiert, das erste Pixel der zweiten Zeile 
durch das erste Bit des vierten Words, das zweite Pixel der er¬ 
sten Zeile durch das zweite Bit des ersten Words, das siebzehnte 
Pixel der ersten Zeile durch das 1 Bit im zweiten Word usw. Wer 
nun mitgerechnet hat, wird sich evtl, fragen, was mit den letzten 
2 Bits jedes dritten Words passiert. Diese beiden Bits können 
getrost ignoriert werden, da sie keine verwertbare Information 
beinhalten. 

Würde man einen senkrechten, ein Pixel breiten und 200 Pixel 
hohen Bildausschnitt ausschneiden, bräuchte man dafür immer¬ 
hin 200 Words (400 Bytes) + 3 Headerwords = 406 Byte Spei- 
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cherplatz, obwohl nur das erste Bit jedes Words im String be¬ 
nutzt würde. Ein sechzehn Pixel breiter Streifen mit gleicher 
Höhe würde ebenfalls ’nur’ 406 Bytes benötigen, wobei alle 16 
Bits jedes Words belegt wären. 

In MIDRES oder HIRES sieht das Ganze auf den ersten Blick 
etwas komplizierter aus. Wenn man das Prinzip jedoch erstmal 
begriffen hat, ist es fast genauso einfach. 

Da im Farbmodus jedes Pixel unterschiedliche Farben annehmen 
kann, müssen die Informationen über die Farbe jedes einzelnen 
Pixel natürlich irgendwo gespeichert werden. Da nun aber ein 
einzelnes Bit nur zwei Zustände darstellen kann (1 oder 0), 
brauchen wir noch weitere Bits, um mehrere Farben darstellen 
zu können. Im MIDRES-Modus brauchen wir nur ein zusätzli¬ 
ches Bit und im LOWRES-Modus drei. Wie Sie wissen, kann 
man in MIDRES über vier verschiedene Farben gleichzeitig 
verfügen und in LOWRES über 16. 

Um die Zahlen 0-3 darstellen zu können, benötigen wir 2 Bits 
(00 / 01 / 10 / 11 = 0,1,2,3). Mit diesen vier Zahlen wird nun 
das Farbregister bestimmt, aus welchem das Pixel seine Farbe 
bezieht. In MIDRES stehen immer nur die ersten 4 Farbregister 
(0 - 3) zur Verfügung. Im LOWRES-Modus geht das genauso 
vor sich, nur daß wir, um die Zahlen 0 bis 15 darstellen zu 
können, vier Bits benötigen (0000 / 0001 / 0010 / 0011 / 0100 / 
0101 / 0110 / 0111 / 1000 / 1001 / 1010 / 1011 / 1100 / 1101 / 
1110 / 1111 = 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15). Also wird 
hier mit einer der 16 Zahlen eines der 16 möglichen Farbregister 
bestimmt, aus dem das Pixel seine Farbe bezieht. 

In diesem Mehrbedarf an Bits pro Pixel ist der Grund zu finden, 
warum im MIDRES-Modus nur die Hälfte und im LOWRES- 
Modus nur ein Viertel des Monochrom-Bildschirms zur Verfü¬ 
gung steht. Die Organisation des Bildschirmspeichers ist nun im 
Farbmodus so, daß für jeweils 16 waagerecht nebeneinander 
liegende Pixel des Bildschirms zwei (MIDRES), bzw. vier 
(LOWRES) Words hintereinander liegen. Die Farbe des ersten 
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Pixel ergibt sich aus der Bitkombination der ersten Bits der zu¬ 
gehörigen Words, die Farbe des zweiten aus der Kombination 
des zweiten Bits der zugehörigen Words usw. 


Beispiel: 

Pixel 0/0 soll im LOWRES-Modus die Farbe des 11. Farbregister 
annehmen. Die Zahl 9 wird mit vier Bits so dargestellt: 1011. 
D.h., im Video-RAM müssen dazu die obersten Bits der ersten 
vier Words folgendermaßen gesetzt sein: 

Bit 1 von Xbios(2) ist gesetzt, Bit 1 von Xbios(2)+2 ist gesetzt, 
Bit 1 von Xbios(2)+4 ist nicht gesetzt und Bit 1 von Xbios(2)+6 
ist wieder gesetzt. 

Dazu ein kleines Beispielprogramm: 

1 Programm: BSP 14 3.BAS 
For IX=0 To 200 

Dpoke Xbios(2)+IX*160+I%*8,65535 
Dpoke Xbios(2)+2+IX*160+1X*8,65535 
Dpoke Xbios(2)+4+IX*160+IX*8,0 
Dpoke Xbios(2)+6+IX*160+IX*8,65535 
Next IX 

Sie sehen, daß das Bild mit einer Abstufung von 16 Pixel diago¬ 
nal in der Farbe des Farbregisters 11 gestreift ist. 

Genau nach demselben Schema ist auch der Get/Put-String im 
Farbmodus organisiert. Dabei enthält im MIDRES-Modus das 
dritte Word des Strings eine 2 (2 Ebenen) und im LOWRES-Mo¬ 
dus eine 4 (4 Ebenen). 

In der folgenden Prozedur werden nun Monochrom-Get/Put- 
Strings produziert. Die zu übergebenden Parameter haben fol¬ 
gende Bedeutung: 

Formal% 1 (16-Bit-Image) 

2 (32-Bit-Image) 
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Flag% 1 (Binärdatas) 

2 (Dezimaldatas) 

Index% Image-Nummer 


Procedure Make_icon(FormatX,FlagX,IndexX) 

A$=Mki$(FormatX*16-1)+Mki$(FormatX*16-1)+Mki$(1) 


For JX=0 To FormatX*16-1 ! 

If Format%=1 ! 

If FlagX=1 ! 

A$=A$+Mki$(Val("&X"+W_plane.bin$(IndexX,JX)))! 
Else ! 

AS=A$+MkiSCVal( "&X"+W_pl ane.dez* (IndexX,JX)))! 
Endi f 


Breite, Höhe und 
Auflösung 
eintragen 
alle Icon-Zeilen 
16Bit- Image? 
Binär? 

Zeile einbauen 
Dezimal! 

Zeile einbauen 


Else ! 

If FlagX=1 ! 

A$=A$+Mkl$( Va l ( l, ÄX"+L_pl ane .bi n$( I ndexX, JX)))! 
Else ! 

A$=A$+Mkl$(Val("&X N +L_plane.dez$(IndexX,JX)))! 
Endi f 
Endif 


32Bit-Image! 
Binär 

Zeile einbauen 
Dezimal! 

Zeile einbauen 


Next JX 
Return 


! nächste Zeile 


In dieser Prozedur werden alle Word-Image-Datas (sofern vor¬ 
handen) eingelesen und in ein zweidimensionales Feld übertra¬ 
gen. Die erste Feld-Ebene enthält die Nummer des gelesenen 
Image, die zweite die dazugehörigen Zeilen. 

Grundätzlich handelt es sich um dieselbe Prozedur, die bereits 
weiter oben (’Maus_read’) beschrieben wurde, nur daß hier 
durch Angabe eines Flags bestimmt werden kann, ob Dezimal¬ 
oder Binärdatas gelesen werden sollen. 

Anzahl% Anzahl der zu lesenden Word-Images 

1 (Binärdatas) 

2 (Dezimaldatas) 


Flag% 
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Ret% Rückgabevariable für tatsächliche Image- 

Anzahl 


Procedure W_bitread(AnzahlX,FlagX.RetX) 

If AnzahlX=0 ! Anzahl Übergabe = 0? 

AnzahlX=20 ! max. Anzahl bestimmen (beliebig) 

Endi f 


Local W_nummerX,JX 
If FlagX=1 

Erase W_plane.bin$() 

Dirn W_plane.bin$(Anzahl%,15) 
Restore W_bin_datas 
Else 

Erase U_plane.dez$() 

Dirn U_plane.dez$(AnzahlX,15) 
Restore W_dez_datas 
Endi f 


! Binärdatas? 

I Feld löschen 
! Feld dimensionieren 
! Data-Zeiger setzen 
! Dezimaldatas! 

! Feld löschen 
! Feld dimensionieren 
! Data-Zeiger setzen 


Do 


Inc WnummerX 

! Lese-Schleife 

! Index-Zähl er +1 

For JX=0 To 15 

! 16 Zeilen 

Read Bits$ 

! Data lesen 


Exit If BitsS="*" Or (AnzahlX>0 And W_nummerX=AnzahlX) 

1 ! Abbruch wenn Endmarkierung oder 

' ! max. vorgegebene Anzahl erreicht 

If Flag%=1 ! Binärdatas? 

W_plane.bin$(W_nunmerX,JX)=Bits$ ! Zeile in Feld eintragen 
Else • Dezimaldatas! 

W_plane.dez$(W_nunmerX,J%)=Bin$(Val(Bits$)) ! Zeile in Feld 
1 ! eintragen 


Endi f 


Next J% ! nächste Zeile 

Exit If Bits$="*" Or (Anzahl%>0 And U_nummerX=AnzahIX) 

1 ! Abbruch wenn Endmarkierung oder 

1 ! max. vorgegebene Anzahl erreicht 


Loop 

*RetX=W_nummerX-1 ! tatsächlich gelesene Anzahl zurückgeben 

Return 


Auch diese Prozedur ist Ihnen in etwas abgewandelter Form 
oben schon begegnet. Hier werden alle Longword-Image-Datas 
(sofern vorhanden) eingelesen und in ein zweidimensionales Feld 
übertragen. Die erste Feld-Ebene enthält wieder die Nummer 
des gelesenen Images, die zweite die dazugehörigen Zeilen. 
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Anzahl% 

Anzahl der zu lesenden Word-Images 

Flag% 

1 (Binärdatas) 


2 (Dezimaldatas) 

Ret% 

Rückgabevariable für tatsächlich gelesene 


Image-Anzahl 


Procedure L bitread(Anzahl%,Flag%,Ret%) 


If AnzahlX=0 
AnzahlX=20 
Endif 

Local LnummerX.JX 
If FlagX=1 

Erase L_plane.bin$() 

Dim L_plane.binS(AnzahlX,31) 
Restore L_bin_datas 
Else 

Erase L_plane.dez$() 

Dim L_plane.dez$(AnzahlX,31) 
Restore L_dez_datas 
Endif 


Anzahl Übergabe = 0? 
max. Anzahl bestimmen (beliebig) 

Binördatas? 

Feld löschen 
Feld dimensionieren 
Data-Zeiger setzen 
Dezimaldatas! 

Feld löschen 
Feld dimensionieren 
Data-Zeiger setzen 


Do ! Lese-Schleife 

Inc L_nummerX ! Index-Zähler +1 

For JX=0 To 31 I 31 Zeilen 

Read Bits$ I Data lesen 

Exit If Bits$="**" Or (AnzahlX>0 And L_ni*nmerX=AnzahlX) 

' I Abbruch uenn Endmarkierung oder 

1 ! max. vorgegebene Anzahl erreicht 

If FlagX=1 I Binärdatas? 

L_plane.bin$(L_nummerX,JX)=Bits$ ! Zeile in Feld eintragen 
Else I Dezimaldatas! 

L_plane.dez$(L_nummerX,JX)=Bin$(Val(Bits$)) ! Zeile in Feld 
1 ! eintragen 

Endif 


Hext JX I nächste Zeile 

Exit If BitsS="**" Or (AnzahlX>0 And L_ncn¥nerX=AnzahIX) 

' ! Abbruch wenn Endmarkierung oder 

1 ! max. vorgegebene Anzahl erreicht 

Loop 

*RetX=L_nummerX-1 ! tatsächlich gelesene Anzahl 

1 ! zurückgeben 


Return 
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An dieser Stelle befinden sich im Programm (auf Disk) mehrere 
Maus- und Alert-Images als Binärdatas. Aus Gründen der Platz¬ 
ersparnis habe ich sie hier im Buch weggelassen. 


1.5 Spezial-Adressen 

Bei näherer Betrachtung der Speicher-Aktivitäten haben wir 
festgestellt, daß z.B. das AES in ganz bestimmten Bereichen 
seine Images ablegt und sie Bedarf von dort holt, um sie auf 
dem Bildschirm anzuzeigen. 

Das ist aber bei weitem nicht alles, was man durch den 
Speicher-Spion erfahren kann. Es gibt so allerhand unscheinbare 
Adressen, die bei genauem Hinschauen sehr interessante Aktivi¬ 
täten entwickeln. 

Ich habe nun hier eine Sammlung von Adressen zusammen¬ 
gestellt, die Ihnen in vielen Beziehungen das Programmierer¬ 
leben leichter machen können oder Effekte erlauben, die schon 
den Anschein von echter 'Intelligenz’ Ihrer Programme aufkom- 
men lassen. 

Ich gehe bei all diesen Adressen immer davon aus, daß die nor¬ 
male Adressenlage nicht durch residente Programme, die im 
Auto-Ordner mitgebootet wurden, verschoben wurde. Wenn 
dieser seltene Fall auftreten sollte, kann ich für die richtige 
Funktion der aufgeführten Adressen leider nicht garantieren. Ob 
die Adressenlage verschoben wurde, läßt sich am leichtesten 
durch eine Positionsabfrage der Images feststellen, wie ich sie 
Ihnen weiter oben in der Prozedur 'Find’ gezeigt habe. Stimmen 
die Image-Adressen, kann davon ausgegangen werden, daß alle 
anderen Adressen auch zutreffen. Der Ausnahmefall ist aller¬ 
dings immer das Disketten-TOS. Durch den vom TOS in diesem 
Fall belegten Speicher werden die Adressen ganz erheblich (ca. 
200 KByte) verschoben. 

Dafür haben die (noch) Disketten-TOS-Besitzer die bestechende 
Möglichkeit, direkt auf den Zeichensatz-Speicher zugreifen zu 
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können. Der Entwurf eigener Schriftzeichen, die dann auch noch 
durch ’DEFTEXT’ variiert werden können, ist dadurch in greif¬ 
bare Nähe gerückt. 

Warum man diesen nur 4096 Byte großen Bereich nicht genauso 
wie die AES-Images beim ROM-TOS in das RAM ausgelagert 
hat, ist mir nicht ganz verständlich. Man hätte dadurch noch 
wesentlich effektiver die Möglichkeit, seinen Programmen ein 
besonderes Aussehen zu verleihen. Leider haben die Leute von 
Digital Research dieses nicht für notwendig gehalten. 

Der 8*16-Font ist folgendermaßen organisiert: 

Es gibt 256 Schriftzeichen, von denen zwei einfach leer sind. 
Das sind die ASCII-Zeichen 0 (NULL) und 32 (SPACE). Jedes 
andere ist aus 16 Bitzeilen zusammengesetzt, wovon jede Zeile 
ein Byte umfaßt. Im Font-Speicher liegt die erste Bitzeile des 
ersten Zeichens ganz am Anfang in Byte 1. Die erste Zeile des 
zweiten Zeichens schließt sich daran an, die erste Zeile des 
dritten Zeichens wiederum daran usw. D.h., daß die ersten 256 
Byte des Font-Speichers der Reihe nach aus den ersten Zeilen 
der 256 Zeichen bestehen. Danach kommt ein Block von wieder 
256 Byte, der nacheinander die jeweils zweite Zeile der Zeichen 
enthält. Der nächste 256-Byte-Block enthält der Reihe nach die 
jeweils dritte Zeile der Zeichen usw. Bei 16 Zeilen je Zeichen 
macht das eine Font-Speichergröße von genau 256*16 = 4096 
Bytes aus. 

Für die Disketten-TOS-Benutzer hier die Adressen des 8*8- und 
des 8*16-Fonts sowie die üblichen Adressen der AES-Images: 

8*8 - Font = 101884 

8*16- Font = 104536 

Füllmuster = 97746 

Die Füllmuster bestehen aus hintereinander liegenden 16-Byte- 
Blöcken, die die jeweils 1 Word breiten (16 Bit = 2 Byte) und 8 
Zeilen hohen Muster-Images enthalten. 
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Desk-Icons = 125138 

Die Desktop-Icons sind folgendermaßen organisiert: 

An der angegebenen Adresse beginnt die Maske des Disk-Sym¬ 
bols. Die Maske umfaßt immer 128 Byte (4 Byte pro Zeile * 32 
Zeilen = 128 Byte). Daran schließen sich der Reihe nach an: 


Disk-Symbol-Maske (+0) 

Disk-Symbol-Image (+128) 

Ordner-Symbol-Maske (+256) 

Ordner-Symbol-Image (+384) 

Müll-Symbol-Maske (+512) 

Müll-Symbol-Image (+640) 

PRG-Symbol-Maske (+768) 

PRG-Symbol-Image (+896) 

Datei-Symbol-Maske (+1024) 

Datei-Symbol-Image (+1152) 


Alert-Icons = 113578 

Die Alert-Icons sind ebenso in 128er Abständen organisiert, nur 
daß hier drei Images aufeinanderfolgen, da die Alert-Icons über 
keine Maske verfügen. 

Ausrufungszeichen (+0) 

Stop-Schild (+128) 

Fragezeichen (+256) 

Maus-Icons = 113962 

Die Maus-Icons sind folgendermaßen organisiert: 

Die ersten 10 Byte enthalten Angaben über die X-Koordinate 
des Aktionspunktes innerhalb des Icons (Word 1 = 0 bis 15), die 
Y-Koordinate des Aktionspunktes (Word 2 = 0- 15) und über 
Normal- oder XOR-Darstellung (Word 3 = 0 oder 1). Die Be¬ 
deutung von Word 4 und 5 ist mir nicht bekannt. An diesen 
Block schließt sich jeweils die Mausmaske (2* 16=32 Byte) und 
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daran das Maus-Image (32 Byte) an. Im ersten 74-Byte-Block 
liegt das Maus-Icon für ’DEFMOUSE 0’. Daran schließen sich 
sieben weitere 74-Byte-Blöcke für ’DEFMOUSE 1-7’ an, die 
ebenso aufgebaut sind wie der erste Block. Der gesamte Maus¬ 
block ist also 74*8 = 592 Bytes lang. 

Weitere Adressen kann ich den Disk-TOS-Besitzern nicht bieten, 
da ich genug damit zu tun hatte, die ROM-TOS-Adressen her¬ 
auszufinden. 

Für die ROM-TOS-Anwender gilt dieselbe Block-Organisation 
für Desktop-, Alert- und Maus-Icons wie oben beschrieben, nur 
daß die Adressen hier an anderer Stelle liegen. Um die richtigen 
Adressen zu finden, müssen Sie von den oben genannten 
Startadressen folgende Offsets abziehen: 

Desktop-Icons = -68754 
Alert-Icons = -67766 
Maus-Icons = -67766 

Der Zugriff auf die Fonts und Füllmuster ist Ihnen aus oben 
genannten Gründen verwehrt. Anschauen können Sie sich diese 
jedoch, indem Sie mit dem Memory-Spion im Speicher ganz 
weit nach hinten fahren und langsam das ROM durchscrollen. 

Als Ausgleich für diesen Mangel folgen nun einige hochinter¬ 
essante RAM-Adressen:* 

2482 Media-Change-Flag setzen (1 Word) 

Dpoke 2482,65535 bewirkt, daß das System die Dis¬ 
kette als gewechselt ansieht und z.B. beim nächsten 
Fileselect-Box-Aufruf das aktuelle Directory neu lädt. 

3582 Maustastenstatus bestimmen (I Byte) 

Poke 3582,248 = keine Maustaste gedrückt 
Poke 3582,249 = rechte Maustaste gedrückt 
Poke 3582,250 = linke Maustaste gedrückt 
Poke 3582,251 = beide Maustasten gedrückt 
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Beispiel: 

1 Programm: BSP1_5_1.BAS 


Poke 3582,250 ! 

If Mousek=1 I 

Circle Mousex,Mousey,4 ! 
Endi f 


linke Maustaste ist gedrückt! 
rechte Maustaste gedrückt? 

Ja, Kreis zeichnen 


Loop 


3583 Mausbewegung links/rechts (1 Byte) 

Peek(3583) = Maus nach links (Bit 0-2 an) oder rechts 
(Bit 5-7 an) bewegt? 


3584 Mausbewegung hoch/runter (1 Byte) 

Peek(3584) = Maus nach unten (Bit 0-2 an) oder oben 
(Bit 5-7 an) bewegt? 

Die Bits geben hier an, wie schnell die Maus bewegt 
wurde: 

Bit 0 bzw. Bit 7 gesetzt = langsam 
Bit 2 bzw. Bit 5 gesetzt = schnell 

Beispiel: 

' Programm: BSP1_5_2.BAS 

On Break Gosub Ende 
Deftext ,,,6 
Openw 0 
Do 

A=Peek(3583) 

B=Peek(3584) 

If (A And 7) And A<15 
Prirvt "rechts" 1 ■ A 11 
Endi f 

If A And 224 
Print "links" 1 '256-A' 1 
Endi f 


! Abbruch kontrollieren 
! kleinere Schriftgröße 
! Window 0 auf 

! rechts/links-Bewegung abfragen 

! hoch/runter -Bewegung abfragen 

! untere 3 Bits (3583) abfragen 
! Bewegung anzeigen 

! obere 3 Bits (3583) abfragen 
! Bewegung anzeigen 
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If (B And 7) And B<15 
Print "unten" 1 ’B 11 
Endi f 

If B And 224 
Print "oben" 1 '256-B' 1 
Endi f 


! untere 3 Bits (3584) abfragen 
! Bewegung anzeigen 

! obere 3 Bits (3584) abfragen 
! Bewegung anzeigen 


Print 

Exit If (B<248 And B>7) Or (A<248 And A>7)!schneile Bewegung = Abbruch 
Loop 
Ende 

Procedure Ende 

Closew 0 ! Window 0 schließen 

Edi t 
Return 


3592 Joystick-Port 0 abfragen (1 Byte) 


3593 Joystick-Port 1 abfragen (1 Byte) 

Mit diesen beiden Adressen kann der Status beider 
Joystickports ermittelt werden. Während 3593 perma¬ 
nent Auskunft über den Port 1 gibt, muß, um Port 0 
abfragen zu können, erst der Joystick-Modus im IKB 
eingeschaltet werden. Das geschieht mit ’Out 4,20’. Ab 
jetzt werden die Signale am Port 0 nicht mehr als 
Maus-(trigger)-Bewegungen, sondern als Joystick- 
Aktionen interpretiert. Soll die Maus wieder in Aktion 
treten, ist durch ’Out 4,8’ der Mausmodus wieder 
einzuschalten. 

Beispiel (Joystick in Port 0!): 

' Programm: BSP1_5_3.BAS 

On Break Gosub Ende 
Out 4,20 
Do 

AX=Peek(3592) 

If AX And 1 
Print "hoch"; 

Endif 
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If AX And 2 
Print "runter"; 
Endi f 

If AX And 4 
Print "links"; 
Endi f 

If AX And 8 
Print "rechts"; 
Endif 

If AX And 128 
Print "Feuer"; 
Endif 
Loop 

Procedure Ende 
Out 4,8 
Edit 
Return 


3611 Sondertasten-Status fragen/setzen (1 Byte) 

Dieses Byte erfüllt den gleichen Zweck wie die BIOS- 
Funktion 11 und wird auch von dieser benutzt. 

9952 Maus-X-Koordinate setzen (1 Word) 

9954 Maus-Y-Koordinate setzen (1 Word) 

Durch Dpokes in diese beiden Adressen können Sie 
die Position der Maus auf dem Bildschirm bestimmen, 
ohne die Maus bewegen zu müssen. Im Memory-Spion 
haben Sie bereits eine Einsatz-Möglichkeit kennen¬ 
gelernt. Man kann durch die gezielte Manipulation 
dieser Adressen eine Skalierung der Mausposition er¬ 
reichen. D.h., daß bestimmte Bereiche des Bildschirms 
nicht mit der Maus 'betreten’ werden können. Sie 
müssen dabei allerdings peinlichst darauf achten, daß 
der ge’dpoke’te Wert nie unter 0 oder über der maxi¬ 
malen Randkoordinate rechts oder unten liegt. Das 
gibt einen glatten Absturz. Wollen Sie die Mauskoor¬ 
dinate durch ’Dpeek’ aus diesen Adressen erfahren, 
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können Sie absolut sicher davon ausgehen, daß die 
gelieferten Werte immer auf die linke, obere Bild¬ 
schirmecke bezogen sind. 

Beispiel: 

1 Programm: BSP1_5_4.BAS 

Print "Maus mit Schwung in das Feld bringen!" 

Box 200,80,440,320 
Dpoke 9952,10 
Dpoke 9954,10 
Do 

If Dpeek(9952)<320 And Dpeek(9952)>200 
Dpoke 9952,200 
Endi f 

If Dpeek(9954)<200 And Dpeek(9954)>80 
Dpoke 9954,80 
Endi f 

If Dpeek(9952)>206 And Dpeek(9954)>86 Or Mousek 
Edit 
Endi f 
Loop 


10206 letzte Mausaktion ermitteln (1 Byte) 

In dieser Adresse speichert das System die zuletzt 
stattgefundene Mausaktion. Wurde also z.B. zuletzt die 
rechte Maustaste gedrückt, kann das durch 
’Dpeek( 10206) auch nach einiger Zeit noch ermittelt 
werden. In diesem Fall ist das Bit 7, bzw. 
’Dpeek( 10206) And 128’ liefert ’True’. 

Liefert ’Dpeek(10206) And 64’ True, so ist Bit 6 an, 
und es wurde zuletzt die linke Maustaste gedrückt. 
Mit ’Dpeek( 10206) And 32’ kann zusätzlich noch er¬ 
fahren werden, ob seit der letzten Tastenbetätigung 
die Maus bewegt wurde oder nicht. 

Wurde sie bewegt, liefert dieses ’Dpeek’ ein ’True’. 
Liefert es ein ’False’, weiß man, daß die Maus in der 
Zwischenzeit nicht bewegt wurde. 
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10226 Byteposition des Mauszeigers (1 Long) 

Hiermit kann das absolute Byte ermittelt werden, auf 
dem sich der Mauszeiger zur Zeit innerhalb des Bild¬ 
schirmspeichers befindet. 

10232 Maushintergrund (16 Longs) 

Das System muß ständig den Maushintergrund Zwi¬ 
schenspeichern, um den durch die Maus verdeckten 
Bereich restaurieren zu können. Dies geschieht in den 
Adresse 10232 - 10295. Von dort holt sich das System 
im Interrupt diese 16 Zeilen (je 32 Bit) und flickt 
damit den Bildschirmspeicher, sobald die Maus bewegt 
wurde. Schreibt man nun in diese Adressen etwas 
Willkürliches, wird anschließend also damit die Screen 
repariert. 

Beispiel: 


' PRogramm: BSP155.BAS 
Repeat 

Lpoke 10232+Random(8)*4,Random(2 A 31 -1) 
Until Mousek 


Zum Schluß noch ein kleiner Trick zum Interpreter. 

Manchmal ist es sehr störend, daß bei jedem Programmstart der 
Bildschirm gelöscht wird. Mit der folgenden Routine können Sie 
dieses Anfangs-CLS aus- oder auch wieder einschalten. 


' Programm: PR0C1_5.BAS 

I 

Procedure Xcl(FlgX) ! FlgX = 0 => CLS aus / FlgX <> 0 => CLS an 
Local A$ 

AS=Space$(3000) 

Bmove Basepage,Varptr(AS),3000 
If FlgX=0 

Poke Basepage+Instr(A$,Chr$(27)+"E 1 '),AscC'H") 
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Else 

Poke Basepage+Instr(A$,Chr$(27)+ l, H"),Asc("E") 
Endif 
Return 


Da ich mir nicht sicher bin, ob der betreffende Escape-Befehl 
in allen Interpreter-Versionen an derselben Position steht, wer¬ 
den zuerst die ersten 3000 Bytes hinter der Basepage nach der 
Sequenz durchsucht. Je nachdem, ob das CLS aus- oder einge¬ 
schaltet werden soll, wird dann entweder der Escape-Befehl "E" 
(ClearHome) durch ”H" (Home) ersetzt, oder umgekehrt. Bei 
meiner ’upgedateten’ V2.0-Version befindet sich das entschei¬ 
dende Byte an Position ’Basepage+l 149’. 


1.6 Atari-gesicherte System-Adressen 

Die Spezial-Adressen, die ich Ihnen oben vorgestellt habe, sind, 
wie bereits mehrfach erwähnt, nicht gesichert. D.h., daß sie 
durch verschiedene Umstände verschoben sein können. Zu die¬ 
sen Umständen gehören vor allem residente Auto-Boot-Pro- 
gramme und verschiedene TOS-Versionen. 

Wie von Atari verkündet, sollen die folgenden Adressen unver¬ 
änderlich sein. Da sehr viele professionelle Programme sich diese 
Adressen zunutze machen (z.B. GFA-BASIC), waren seit der 
MEGA-ST-Ankündigung (neues ROM-TOS) einige Software- 
Fabrikanten in Aufruhr. Atari hat nun zugesichert, daß die 
Adressenlage innerhalb des Supervisor-Bereichs (Adressen 0 - 
2047) unverändert bleibt. 

In diesem Kapitel finden Sie nun eine Sammlung von 32 Adres¬ 
sen, die für das System sehr wichtige Funktionen haben. Ohne 
die Richtigkeit bzw. Brauchbarkeit dieser Adresseninhalte wäre 
es über kurz oder lang zum Absturz verurteilt. Das ist auch der 
Grund, warum dieser Bereich durch den Supervisor schreib¬ 
geschützt ist und man nur im Supervisormodus (Spoke, Sdpoke, 
Slpoke) diese Daten verändern kann. 
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Viele dieser Adressen sind für den BASIC-Programmierer unin¬ 
teressant, da man ihre Modifikation nur in Assembler oder ’C’ 
nutzen kann. Deshalb habe ich mir erlaubt, nur diese Auswahl 
anzubieten. 

Zuerst folgt ein kleines Programm, das Ihnen die Bedeutung, 
Dig.Research-Kürzel, Adresse, den Inhalt und das Format der 
Daten anzeigt. Weiter läßt sich mit diesem Programm nichts an¬ 
fangen. Am Ende des Programms befinden sich die Data-Zeilen, 
anhand derer ich die Einzelheiten erläutern werde. 


Programm: SYSADRS.BAS 

| IIII1111IIIIIIIMI1111IIIIIIII Mil M HM IIIIIIIMMIII Mil IIIIIIII | 

j SYSTEM - ADRESSEN - TABELLE j 


11111111111111111111111111111111111111111111111111111111111111111111 


On Break Cont ! Abbruch 

Deffill ,2,4 
Pbox 2,2,637,397 
Deffill ,0,0 

Print At(33,1);" Systemadressen " 

Pbox 6,15,633,385 
Line 6,30,633,30 
Openw 0 
Deftext ,,,6 

Print At(5,1).•"Bedeutung" 

Print At(40,1);"Kurzname Adresse Inhalt 

Print At(1,2) 

Restore Sys_adr 

Dirn AdrX(32),Mod$(32),Cnt%(33) ! 

For IX=1 To 32 ! 

Read TxtS,Shrt*,AdrX<IX),CntX(IX),Mod$(IX) ! 
For J%=0 To CntX(IX)-1 ! 

If CntX(IX)>1 ! 

Print At(5,Crslin);Txt*' 1 JX+1 1 I 

Else ! 

Print At(5,Crslin);Txt$' ! 

Endi f 


unmöglich 

i — 


Screen- 
- - Aufbau 


Format" ! 

! 

! — I 

Felder einrichten 
32 Adressen 
Datas lesen 
Blocklänge (B/W/L) 
Block > 1 
Ausgabe 
Block = 1 
Ausgabe 


Print At(40,Crslin);"(";Shrt$;Space$( 13-Len(ShrtS)!Kurzname 
If Mod$(IX)="B" ! Byteformat? 

OfsX=JX ! Offset 

InhX=Peek(AdrX(IX)+OfsX) ! Byte-Inhalt auslesen 
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Endif 

If Mod$(IX)="W" 

1 Wordformat? 

OfsX=JX*2 

! Offset 

Ir»hX=Dpeek(AdrX( IX)+OfsX) 

! Word-Inhalt aus lesen 

Endif 

If Mod$(IX)="L" 

! Longwordformat 

OfsX=JX*4 

! Offset 

InhX=Lpeek(AdrX(IX)+OfsX) 

! Long-Inhalt auslesen 

Endif 

Print At(57,Crslin);AdrX(IX)+OfsX' 1 'InhX, 1 ’ModSCIX) ! anzeigen 

Next JX 

Next IX 

Hi dem 

Line 300,0,300,366 

Line 437,0,437,366 

Line 497,0,497,366 

Line 570,0,570,366 

Graphmode 3 

Repeat 

! —! 

Mouse X, Y,K 

! 

Box 7,Y-14,632,Y 

! 

Box 8,Y-13,631,Y-1 

j 

Poke 3584,0 

i 

Repeat 

! - - Lineal 

KeyX=Asc(Inkey*) 

! 

Until Peek(3584) Or Mousek Or KeyX 

! 

Box 7,Y*14,632,Y 

! 

Box 8,Y-13,631,Y-1 

I 

Until Mousek Or XeyX 

I---1 

Showm 

Closew 0 

Edit 

Sysadr: 

Data Xonfig.-Copy d. Memory-Contr., 

memctrl ,&H424,1,U 

Kopie des Konfigurationswertes 

im Memory-Controller: 
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Data Reset-Zulassung, resvalid ,&H426,1,L 

Wird hier der Wert &H31415926 eingetragen, kann damit er¬ 
reicht werden, daß bei einem Reset über den Reset-Vektor in 
Routinen gesprungen wird, die auf den Reset reagieren. Ohne 
genaueste Kenntnis des Vorgangs läßt sich damit leider nichts 
erreichen. 


Data Reset-Vector, resvector ,&H42A,1,L 

Dieses ist der eben genannte Reset-Vektor, der allerdings keinen 
Inhalt aufweist. Soll auf den Reset reagiert werden, wird hier 
die Adresse der reagierenden Routine eingetragen. 


Data RAM-Physical-End, phystop ,&H42E,1,l 

Wie der Name sagt, ist in dieser Adresse das Ende des physika¬ 
lischen RAMs eingetragen. 


Data Benutzer-Speicher-Start, membot ,&H432,1,L 

Die Anfangsadresse des Benutzerspeichers finden Sie hier. 


Data Benutzer-Speicher-Ende, memtop ,&H436,1,L 

Und hier die Endadresse. 


Data Read/Urite-Seekrate, seekrate ,&H440,1,W 

Ist Ihnen Ihre Floppy zu langsam? Wenn Sie in diese Adresse 
den Wert 2 Lpoken, wird sie etwas schneller. Damit wird die 
Geschwindigkeit der Schreib-/Lesekopf-Bewegung von einem 
Track zum nächsten bestimmt. 

0 = 6 Millisek. / 1 = 12 Millisek. 

2 = 2 Millisek. / 3 = 3 Millisek. 


Der Default-Wert ist die 3. 
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Data Timer-Differenz, timerms ,&H442,1,U 

Diese Adresse zeigt Ihnen die Differenz zwischen zwei System- 
Timer-Aufrufen in Millisekunden. 


Data Write-Verify on/off, _fverify ,&H444,1,W 

Diese Speicherstelle bestimmt, ob bei Floppy-Schreibzugriffen 
automatisch ein Verify ausgeführt wird. Wenn Sie das Verify 
unterdrücken möchten (Floppy schreibt schneller), müssen Sie 
diese Adresse auf Null setzen. Jeder andere Wert schaltet das 
Verify wieder ein. 


Data Boot-Laufwerksnunmer, _bootdev ,&H446,1,U 

Hier kann die Nummer des Laufwerks ermittelt werden, von 
dem das System gebootet wurde. Bei ROM-TOS-Maschinen ist 
das relativ uninteressant. 

0 = A: / 1 = B: 

Data PAL(SOHz) / NTSC(60Hz)-Modus, palmode ,&H448,1,U 

Hier kann erfahren werden, ob das Sytem im 50-Hertz-PAL- 
Modus (<>0) oder im 60-Hertz-NTSC-Modus (=0) arbeitet. 
Veränderungen an dieser Adresse haben keinen Sinn, da der 
Modus nur während des Bootens installiert werden kann. 


Data Neue Color-AufLösung, defshiftmod ,&H44A,1,U 

Bei Umschaltung vom Monochrom- in den Farbmodus liefert 
diese Adresse dem System die gewünschte Farb-Auflösung. 
Ohne System-Kenntnisse kann dieses Adresse nur gelesen 
werden. 


0 = LOWRES / 1 = MIDRES 
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Data Register-Copy d. Auflösung, sshiftmd ,&H44C,1,W 

Auch diese Adresse kann nur gelesen werden. Sie liefert den 
gleichen Wert, der auch durch ’XBIOS(4)’ erfahren werden kann. 

0 = LOWRES / 1 = MIDRES / 2 = HIRES 

Data Zeiger auf Logbase, _v_bas_ad ,&H44E,1,L 

Diese Adresse liefert denselben Wert wie ’XBIOS(3)’: einen Zei¬ 
ger auf die Startadresse des logischen Bildschirms. Wollen Sie die 
Screen-Adressen verändern, können Sie dies am besten mit 
’XBIOS(5). 


Data VBL-Routine on/off, vblsem ,&H452,1,U 

Durch Setzen einer Null in dieser Adresse können die in &H454 
eingetragenen Vertikal-Blank-Interrupt-Routinen gesperrt wer¬ 
den. Dadurch wird dann z.B. auch die Abbruchfunktion des 
GFA-BASIC außer Kraft gesetzt. Durch Einträgen einer 1 wird 
die VBL-Routine wieder aktiviert. 


Data Anzahl d. VBL-Routinen, nvbls ,&H454,1,W 

In diesem Longword steht die Anzahl der auszuführenden 
Vertikal-Blank-Interrupt-Routinen. Als Default-Wert ist hier 
eine 8 (8 Routinen) eingetragen. Vom System wird nur eine 
VBL-Routine installiert. Die anderen 7 Routinen können frei 
bestimmt werden. Durch Heraufsetzen der Zahl können ent¬ 
sprechend viele Routinen angemeldet werden. 


Data nvbls-Routinen-liste, vblqueue ,&H456,1,L 

Dies ist ein Zeiger auf eine Liste von Adressen der in &H454 
angemeldeten VBL-Routinen. Im Defaultzustand ist diese Liste 8 
Longwords lang (8 eingetragene Routinen). Durch 
’Lpeek(Lpeek(&H456))’ erfahren Sie die Startadresse der ST- 
Standard-Routine. Das zweite Longword ’Lpeek(Lpeek(&456)+4)’ 
zeigt sehr wahrscheinlich auf eine Adresse im BASIC-Interpre¬ 
ter, wo sich eine vom BASIC eingetragene Routine befindet. 
Sollte das nicht der Fall sein, wurden vorher durch ein Auto- 
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Boot-Programm eine oder mehrere VBL-Routinen angemeldet, 
und der Eintrag der BASIC-Routine verschiebt sich um 
dementsprechend viele Longwords in der Liste. Die nächsten 
Einträge hinter dem BASIC-Eintrag müßten dann null sein. Dort 
kann man dann die Adressen seiner eigenen Interrupt-Routinen 
eintragen und damit erreichen, daß diese Routinen dann vom ST 
treu und brav bei jedem VBL-Interrupt ausgeführt werden. 

Sollen mehr als 8 VBL-Routinen ausgeführt werden, ist die 
Liste entsprechend zu erweiteren, in einen ausreichend großen 
Speicherbereich zu verlegen, in &H456 die neue Tabellen- 
Adresse und in &H454 die neue Anzahl einzutragen. 

Ohne fundierte Assembler-Kenntnisse ist hier jedoch nicht viel 
auszurichten. Übrigens können Sie die Abbruchfunktion des 
BASIC total ausschalten, indem Sie in das vierte Byte der 
BASIC-Interrupt-Routine einfach eine Null schreiben. Wollen 
Sie auch noch den Direkt-Modus im Interpreter ausschalten, 
schreiben Sie in das fünfte Byte einfach ebenfalls eine Null. Nur 
darf danach kein ’On Break Cont’-Befehl mehr ausgeführt wer¬ 
den, da sonst die Break-Umschaltung im Interpreter durchein¬ 
ander gerät. Wollen Sie beides wieder einschalten, poken Sie in 
das vierte Byte eine 27 und in das fünfte Byte eine 2. 

Die BASIC-Interrupt-Routine kann man in der Liste dadurch 
identifizieren, daß sie ca. 26 KByte über der BASIC-Basepage, 
also innerhalb des Interpreters liegen muß. 


Data Neue Farbpalette installieren, colorptr ,&H45A,1,L 

Hier kann die Adresse einer 16 Words umfassenden Farbpalette 
eingetragen werden. Diese Palette wird dann beim nächsten 
VBL-Interrupt geladen, sofern der VBL-Interrupt nicht gesperrt 
ist. Damit keine Palette geladen wird, ist der Wert 0 einzutragen. 


Data Video-RAM-Adresse installieren, screenpt ,&H45E,1,L 

Diese Adresse wird als Zeiger auf die Startadresse des logischen 
Bildschirmspeichers interpretiert. Das neue Video-RAM wird 
dann beim nächsten VBL-Interrupt installiert. Soll nicht ständig 
das Video-RAM installiert werden, muß diese Adresse natürlich 
Null enthalten. 
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Data Attribut-Vektor für Console, conterm ,&H484,1,B 

Die untersten 4 Bit dieses Bytes bestimmen, ob: 

der Tastatur-Klick ein (Bit 0=1) oder aus (Bit 0=0) ist, 
der Tastatur-Repeat ein (Bit 1 = 1) oder aus (Bit 1=0) 
ist oder 

die BIOS-Funktion 2 (Conin) in den obersten 8 Bit den 
Umschalttastenstatus liefert (Bit 3=1). 

Das Bit 2 bestimmt zusätzlich die Wirkung von <ControlxG> 
auf die Soundverarbeitung (an/aus?). Welche Wirkung das sein 
soll, konnte ich nicht herausfinden. 


Data Memory-Descriptor, themd ,&H48E,4,L 

Mit der BIOS-Funktion 0 wird die Adresse des Memory-Para- 
meter-Blocks bestimmt. Als Rückgabewert erhält man die 
Adresse dieses Memory Descriptors. Weiteres s. unter BIOS(O). 


Data Zeiger auf Register-Save-Area, savptr ,&H4A2,1,L 

Man hat hierdurch eine Möglichkeit, sich Einblick in den Stand 
der Prozessor-Register zu verschaffen. Bei jedem BIOS-Aufruf 
werden die Register-Inhalte in einem bestimmten Bereich gesi¬ 
chert. Der Inhalt dieser Adresse stellt nun einen Zeiger auf die 
Anfangsadresse dieses Bereichs dar. 


Data Anzahl angeschlossener Floppies, _nflops ,&H4A6,1,W 

Diese Adresse liefert einen Wert, der die Anzahl der ange¬ 
schlossenen Laufwerke angibt. Genau wie die BIOS-Funktion 10 
wird immer davon ausgegangen, daß mindestens zwei Laufwerke 
(A und B) angeschlossen sind. 


Data 200-Hz-Systemcounter, _hz_200 ,&H4BA,1,L 

Dieses ist der System-Timer, der von dem BASIC-Befehl ’Timer’ 
benutzt wird. 

Beispiel: Print Timer’”Lpeek(&H4BA) 
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Data Bit-Vektor f. angeschl. Laufwerke, _drvbits ,&H4C2,1,L 

Aus dieser Adresse kann ermittelt werden, welche Laufwerke 
zur Zeit angeschlossen sind. Es handelt sich hier um einen Bit- 
Vektor. Ist Bit 0 gesetzt, heißt das, daß Floppy A: angeschlossen 
ist. Bit 1 steht für Floppy B:, Bit 2 für C: usw. Auch hier geht 
das System davon aus, daß generell mindesten Drive A: und B: 
angeschlossen sind. 


Data 1024-Byte-DiskPuffer, _dskbufp ,&H4C6,1,L 

Um nicht bei jedem Diskettenzugriff die aktuellen Disketten- 
Attribute von Disk holen zu müssen, richtet sich das System 
einen Disk-Puffer ein, in welchem der Boot-Sektor abgelegt 
wird. Dieser 1024 Byte große Puffer beginnt an der hier einge¬ 
tragenen Adresse. 


Data Standard-VBL-Routine, _vbl_list ,&H4CE,8,L 

Dies ist die VBL-Routinenliste, deren Adresse durch 
’Lpeek(&H456)’ erfragt werden kann. 

In ihr sind der Reihe nach alle VBL-Routinen eingetragen, 
welche bei jedem VBL-Interrupt ausgeführt werden sollen. Wie 
oben bereits erwähnt, können auch mehr als acht Routinen an¬ 
gemeldet werden, wenn dieser entsprechend verlängerte Vektor 
an eine ausreichend große Speicherstelle verlegt wird, die neue 
Anzahl in &H454 und der neue Zeiger in &H456 eingetragen 
wird. 


Data Hardcopy-Flag on/off, _dumpflg ,&H4EE,1,U 

Eine 1 in dieser Adresse zeigt an, daß gerade eine Hardcopy 
gefertigt wird. Es ist möglich, allein durch Setzen einer 0 in 
dieser Adresse eine Hardcopy auszulösen. Der Default-Inhalt 
dieser Adresse ist 65535. Setzt man hier eine 1, wird mit jedem 
<AlternatexHelp> der Adresseninhalt um 1 erhöht. Eine 
Hardcopy durch <AlternatexHelp> wird jedoch nur ausgeführt, 
wenn vorher der Wert 65535 in dieser Adresse enthalten ist. D.h. 
also, daß man durch Einträgen eines Wertes > 0 die Hardcopy- 
Funktion <AlternatexHelp> unterdrücken kann. Sie ist erst 
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wieder in Takt, wenn der Wert 65535 eingetragen wurde. Hat 
man die Hardcopy-Funktion ausgeschaltet, kann man außerdem 
feststellen, ob vom Benutzer in der Zwischenzeit 
<AlternatexHelp> gedrückt wurde, weil ja bei jedem Druck auf 
diese Tastenkombination der Zähler um 1 erhöht wird. Ist der 
aktuelle Wert also größer als der von Ihnen eingetragene, wurde 
in der Zwischenzeit versucht, eine Hardcopy auszuführen. 


Data Printer-Time-Out-Abort-Flag, _prtabt ,&H4F0,1,W 

Wozu dieses System-Flag gut ist, konnte ich nicht in Erfahrung 
bringen. 


Data Beginn des Betriebssystems, _sysbase ,&H4F2,1,L 

Diese Adresse enthält einen Zeiger auf die Startadresse des 
Betriebssystems. 


Data Ende des Betriebssystems, endos ,&H4FA,1,L 

Hier ist das Ende des Betriebssystems im RAM eingetragen. Das 
Betriebssystem benötigt auch bei einem ROM-TOS einen gewis¬ 
sen Bereich des RAMs für sich. Das Ende dieses RAM-Bereichs 
ist hier gemeint. 


Data Beginn des AES, execos ,&H4FE,1,L 

Hier finden Sie einen Zeiger auf die Startadresse des AES in¬ 
nerhalb des Betriebssystems. 
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2. Das Floppy-ABC 


Inhalt und Aufbau der alles entscheidenden Disketten ist wohl 
den meisten Lesern ein Buch mit den berühmten sieben Siegeln. 

Alles entscheidend deshalb, weil unser Super-ST ohne diese 
kleinen schwarzen ’Schwabbel-Scheiben’ (engl.: Floppy-Disk) 
nun mal nicht auskommt. 

So eine Diskette sieht eigentlich nicht besonders exclusiv aus. Es 
handelt sich um eine dünne Kunststoffscheibe, die mit einer 
magnetischen Oberfläche beschichtet ist. Die Daten werden 
grundsätzlich in der gleichen Verfahrensweise in diese magneti¬ 
sche Schicht "eingraviert", wie wir es von Magnet-Tonbändern 
her kennen. Der Unterschied ist der, daß bei einem Tonband die 
Informationen analog zu der dem Tonkopf zu- geführten Span¬ 
nung übertragen werden, d.h. daß hier je nach Qualität des Ge¬ 
rätes und des Bandes eine sehr große Frequenzspanne vorliegen 
kann. Bei einer Diskette werden ausschließlich digitale Informa¬ 
tionen verarbeitet. Der Tonkopf überträgt also nur zwei Fre¬ 
quenzen. Die zu übertragenden Daten werden bitweise interpre¬ 
tiert, und je nachdem, ob ein Bit gesetzt oder leer ist, wird ent¬ 
weder ein hoher oder ein niedriger Ton gesendet. Die Frequenz 
dieser beiden unterschiedlichen Töne hinterläßt dann auf der 
Magnetschicht ganz charakteristische Spuren. 

Da sich die Diskette während des Schreibens und Lesens ständig 
um ihre Achse dreht, ist der Gedanke nicht fern, sie in konzen¬ 
trische Kreise einzuteilen. 

Womit wir auch schon bei den mysteriösen Tracks (engl.: Spu¬ 
ren) angekommen sind. 

Sind Sie im Besitz eines besseren Formatier-Programms, wird 
Ihnen schon aufgefallen sein, daß die Anzahl an Tracks, die sich 
auf einer Diskette befinden, auch bei gleichem Diskettentyp 
unterschiedlich sein kann. Man hat dort also die Wahl, ob man 
die Diskette in 40, 80, 81 oder 82 Tracks (je Diskettenseite) 
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einteilen möchte. Das bedeutet nichts anderes, als daß nun der 
zur Verfügung stehende Teil des Diskettenradius’ physikalisch in 
die gewünschte Track-Anzahl unterteilt wird. 


Ein« Diskette ist in Tracks auf geteilt 
Dieses sind konzentrisch angeordnete 
Spuren, die wiederum unterteilt sind. 
Diese Track-Einteilungen nennt man 
Sektoren. Ein Sektor gehört immer 
mit einem weitern Sektor zusammen 
zu einem Datencluster. 

Ein Sektor besteht aus 512 Byte. 

Ein Cluster also aus 1024 Byte. 

Das übliche Diskettenformat ist) 

80 Tracks pro Seite 
9 Sektoren pro Track 

i Auf den ersten beiden Tracks 
|befinden sich norma1erweise> 

1 Bootsektor 

2 FATs zu je 5 Sektoren 
1 Direktory mit 7 Sektoren 

Der Bootsektor enthält alle 
wichtigen Diskettendaten. 

Die FAT ordnet den Dateien 
die benötigten Datencluster zu. 

Im Direktory werden alle Datei¬ 
namen, die llhrzeit und Datum, 
sowie das Fi1e-Attribut, der 
Startcluster und Dateilänge 
festgehalten. 



Ertttl luri» <3*r QraMK wit PRO* 


Abb. 4: Die Diskette 


Weiterhin wird Ihnen vielleicht aufgefallen sein, daß auch die 
Anzahl der Sektoren variabel sein kann. Wird z.B. eine einseitige 
Diskette mit 82 Tracks zu je 10 Sektoren formatiert, stehen 
Ihnen 82*10 = 820 Sektoren zu je 512 Byte (820*512 = 419840 
Byte) zur Verfügung. Da man auf diese Weise ca. 60 Kilobyte 
pro Diskettenseite mehr an Speicherplatz erhält, wird dieses Dis¬ 
kettenformat recht häufig verwendet. 

Aus einem ganz bestimmten Grund erweist es sich jedoch oft als 
nachteilig, seine Diskette derart platzsparend einzurichten. Das 
Betriebssystem des ST ist in seinen Kopier- und Formatier-Uti- 
lities auf das großzügigere 720-Sektoren-Format ausgerichtet, 
und man hat so keine Möglichkeit, ohne spezielle Kopierpro- 
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gramme seine Disketten zu vervielfältigen. Sie werden also üb¬ 
licherweise Disketten vorfinden, die mit 80 Tracks zu je 9 Sek¬ 
toren (80*9 = 720 Sektoren) ausgestattet sind. 

Wer nun schnell mitgerechnet hat, kommt auf eine Bytezahl von 
720*512 = 368640 Byte je Diskettenseite. Nach dem Formatieren 
mit dem Desktop-Formatter werden Ihnen jedoch nur 357376 als 
frei gemeldet. Das liegt daran, daß das System sich einen 
hübschen Batzen von 22 Sektoren zur Diskettenverwaltung, also 
für Bootsektor, File-Allocation-Tables (engl.: Datei-Zuteilungs- 
Tabelle) und Directories abkneift. Es bleiben also nur noch 698 
Sektoren (698*512 = 357376 Byte) je Diskettenseite übrig. Ein 
erfreulicherweise für die meisten Zwecke völlig ausreichender 
Speicherplatz. 

Nun sind gleich drei Begriffe gefallen, deren Erklärung zum 
Verständnis der Disketten-Organisation unumgänglich ist. 

Was sind eigentlich Sektoren? Sektoren sind die kleinste Eintei¬ 
lungsgröße auf der Diskette. Sie bestehen generell aus 512 Byte. 
Während ein Track eher eine technische Einheit ist, ist der Sek¬ 
tor zur Verwaltung der Diskette notwendig. 


Boot-Sektor 

Jede Diskette verfügt über einen solchen. Er ist generell auf 
Sektor 0 (Seite 0, Track 0) einer Diskette zu finden. Nach er¬ 
folgter Formatierung einer Diskette werden hier grundlegende 
Informationen zur Disketten-Organisation festgeschrieben (siehe 
unter XBIOS(18)). 

Bei genauester Kenntnis der Materie ist es auch möglich, ihn 
nachträglich zu modifizieren, um so z.B. versteckte Tracks zu 
erzeugen. 
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Der Bootsektor ist inner auf Track 

Sektor 1, Seite 8 zu finden. 


Abb. 5: Der Bootsektor 


File-Allocation-Table 

Wie der Name schon sagt, wird hier den Dateien etwas zuge¬ 
wiesen. Wird eine Datei eingerichtet, werden in den FAT-Sek- 
toren (üblich 2*5) die Sektoren eingetragen, die von dieser Datei 
belegt werden. Eine FAT muß immer so groß sein, daß für je¬ 
den Sektor der Diskette eineinhalb Byte (2*6 Bit) zur Verfügung 
stehen. Die FAT beginnt immer mit der Drei-Byte-Konstante 
&HF7FFFF. Üblicherweise werden pro Diskette zwei FAT’s an¬ 
gelegt, wovon die zweite direkt auf die erste folgt. Wurde z.B. 
eine einseitige Disk mit 80 Tracks zu je 10 Sektoren formatiert, 
müssen die FAT’s mindestens 80*10*1.5/512 = 3 Sektoren groß 
sein. Da die erste FAT üblicherweise auf Sektor 1 in Track 0 
der Seite 0 einer Diskette liegt, würde die zweite in diesem Fall 
also auf Sektor 4 folgen. 
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Directory 

Ein Directory (engl.: Adressbuch) beinhaltet üblicherweise die 
Namen aller Dateien, die jemals (seit der letzten Formatierung!) 
auf dieser Diskette angelegt wurden. Es sei denn, der Dateiname 
wurde per Monitor komplett gelöscht. 

Wurden Dateien gelöscht (z.B. Desktop-Papierkorb oder Kill- 
Funktion), wird der erste Buchstabe des Dateinamens durch das 
SIGMA-Zeichen (&HE5E5) ersetzt und der FAT-Eintrag ge¬ 
löscht. Wurden Ordner angelegt, bestehen außer dem Haupt- 
Verzeichnis noch soviele Unterverzeichnisse, wie Ordner vor¬ 
handen sind. Im Anschluß an die jeweiligen Datei- und Ordner¬ 
namen enthält ein Directory-Eintrag zusätzliche Informationen 
über Datum und Uhrzeit der Datei-Erstellung, über Datei-Attri¬ 
bute sowie über Dateilänge und Startcluster. 
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Abb. 6: Da* Directory 


Um nun handfestes Material zur Floppy-Lektion anbieten zu 
können, wollte ich zuerst nur ein paar kleine nützliche Routinen 
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entwickeln. Daraus hat sich dann frei nach dem Schneeball- 
Prinzip ein fast kompletter Disketten-Monitor entwickelt. 

Beim Entwurf dieses Disketten-Monitors bin ich grundlegend 
davon ausgegangen, daß er seinen Zweck hauptsächlich darin 
hat, Disketten-Inhalte erforschen zu können. Im Lauf der Pro¬ 
gramm-Entwicklung sind mir dann allerhand weitere sinnvolle 
Aufgaben eines Monitors eingefallen, und ich habe versucht, 
einige davon zu verwirklichen. 

Eine davon war das File-Recover, d.h. die Möglichkeit, ge¬ 
löschte Dateien wieder brauchbar zu restaurieren. Leider muß 
ich gestehen, daß mir diese Funktion nicht 100%ig geglückt ist. 
Durch Umstände, die mir manchmal als sehr rätselhaft erschie¬ 
nen, gelingt es nicht immer, alle zu einer Datei gehörigen 
Cluster wiederzufinden. Wenn doch, kann es trotzdem noch pas¬ 
sieren, daß trotz korrekter Eintragung in die File-Allocation- 
Tabelle Fehler auftreten. Dazu gehört vor allem, daß nach er¬ 
folgter Datei-Restauration das System mit der veränderten FAT 
nicht mehr zurechtkommt. Dabei habe ich die Erfahrung ge¬ 
macht, daß dieser Mißstand behoben werden kann, indem kurz¬ 
fristig eine andere (!) Diskette eingelegt wird (vorher <UNDO>- 
Taste drücken) und dann wieder die Disk, auf welcher sich das 
restaurierte File befindet. Aus mir unbekannten Gründen gibt es 
allerdings für das Auftreten dieses Fehlers keine Regel. 
Manchmal funktioniert es tadellos und manchmal eben nicht. 
Sollte nach einem File-Restore die Disketten-Verwaltung völlig 
durcheinander sein, hilft nur noch der RESET-Knopf. Die re¬ 
staurierte Datei müßte danach allerdings wieder auf dem Desk- 
top (mit dem Anfangsbuchstaben ’X’) erscheinen. In selteneren 
Fällen wird dann beim Listen der Datei immer noch auf falsche 
Cluster zugegriffen. Dann bleibt nur noch der Versuch, die Da¬ 
tei auf eine andere Diskette oder auf dieselbe Diskette mit geän¬ 
dertem Namen zu kopieren und die Ursprungsdatei zu löschen. 
Sollte das immer noch nicht helfen, ist die Datei nicht mehr zu 
retten. Hier bleibt also ein Spielraum für all jene, die sich in¬ 
tensiv mit der Datei-Verwaltung des Systems auseiandersetzen 
wollen. 
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Sollte jemandem das Kunststück gelingen, den Restaurations-Al¬ 
gorithmus 100%ig in den Griff zu bekommen, kann er sich 
rühmen, eine der schwierigsten Aufgaben, die das Betriebs¬ 
system des Atari ST zu bieten hat, gelöst zu haben. Ich wünsche 
viel Erfolg und vor allem Geduld dabei. 

Dieser Monitor ist der Einfachheit halber zum größten Teil auf 
ein einseitiges Laufwerk ausgerichtet. Ein Monitor, der sowohl 
ein- als auch zweiseitige Disketten lesen und verarbeiten kann, 
wäre erheblich umfangreicher. 

Hier im Buch finden Sie nur einige der wichtigsten Prozeduren 
dieses Programms bzw. die wichtigsten Teile daraus erläutert. 
Das gesamte, komplett kommentierte Listing finden Sie unter 
’GFA_DMON.BAS’ auf der Diskette. 

In den hier aufgeführten Prozedurteilen habe ich immer dort, 
wo im Programm Zeilen auftauchen, die für die Erläuterung 
nicht so wichtig sind, untereinanderstehende Punkte verwendet. 


Programm: GFADMON.BAS 

| iiiiamiiiiiiitiiiiiaiiaiini 1111111111111111111111111111111111111111 

GFA - DISKETTEN - MONITOR 


| Copyright Juni 87 by DATA BECKER 
1 Autor: Uwe Litzkendorf 


i iiiiiimaiiaiaiiiMiiiiiiiiHiiHiHaiiiiiiiaaiiaaiiiaaamiimiim i 


Um einen Disketten-Monitor betreiben zu können, müssen stän¬ 
dig die Grunddaten der Diskette für das System verfügbar sein. 
Da man nun mit einem solchen Monitor die Möglichkeit hat, 
beliebig Daten zu verändern, muß vom Programm sichergestellt 
werden, daß diese Daten aktualisiert werden, sobald die Diskette 
gewechselt wurde oder der Bootsektor verändert wurde. 


Die folgende Prozedur hat genau diesen Zweck. 
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Procedure Disktyp(Sec1X,Spt1X,Sid1X,SpfIX,Fat1X,Dlen1X,D_at1X) 


Local BtX,Aa$,BpbX 
aSecmod( 2,0,1,0,*Aa$,» ») 
BtX=Varptr(Aa$) 

Sec2X=Peek(BtX+20)*256+Peek(BtX+19) 

Spt2X=Peek(BtX+25)*256+Peek(BtX+24) 

Spf2X=Peek(BtX+23)*256+Peek(BtX+22) 

Sid2X=Peek(BtX+27)*256+Peek(BtX+26) 


(Bootsektor laden 
•Puffer-Startadresse 
•Sektoren auf Disk 
•Sektoren pro Track 
(Sektoren pro FAT 
•SD oder DD (1-2) ? 


Die Bedeutung dieser Daten finden Sie unter ’XBIOS(18)’ be¬ 
schrieben. An der verkehrt gelesenen Datenfolge (z.B. erst Byte 
20, dann Byte 19) ist das MS-DOS-Wordformat zu erkennen. 


BpbX=Bios(7,0) !Bios-Parameter-Block (BPB) 

' ! ( s. unter BI0S(7) ) 

If Bpb%=0 (Bios-Funktionsfehler 

Alert 1."Fehler im IBIOS-Parameter-Block!".1 ." Aha "D.b% 


D.lenX=7 
F.at2X=6 
D.at1X=18 
Else 

D.lenX=Dpeek(BpbX+6) 

F.a12X=Dpeek(BpbX+10) 
D.at1X=Dpeek(Bpb%+12) 
• 

Endi f 


• Directorylänge =7Sektoren 

! 2.FAT Startsektor=6.Sektor 
! 1. Datensektor=18.sektor 
(Bios-Parameter-Block OK • 

! aktuelle Directorylänge 
! aktueller 2.FAT-Startsektor 

• aktueller 1.Datensektor 
I (s. unter BI0S(7) ) 


Die folgende ’IP-Abfrage stellt fest, ob im Bootsektor überhaupt 
brauchbare Angaben über Sektorenanzahl, Sektoren pro Track 
und Sektoren pro FAT zu finden sind. Sind sie das nicht, wer¬ 
den diese Daten hier 'simuliert’, damit die Diskette überhaupt 
lesbar ist, da das Programm sich in der Sektorenauswahl nach 
diesen Daten richtet. 

If Sec2X=0 Or Spt2X=0 Or Spf2X=0 (Grund-Daten im Bootsektor Null? 

Alert 1,"Bootsektor defekt !?!?",1," Aha ",D.b% 

Spf2X=5 (Sektoren pro FAT=5 

Spt2X=9 (Sektoren pro Track=9 

Sec2X=720*Sid2% (Sektorenanzahl 720(SD)/K40(DD) 

Endif 
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If Sektor%>Sec2%-1 

I 

Sektor%=0 
Endi f 

*Sec1X=Sec2% 
*Spt1X=Spt2X 
*Spf1X=Spf2% 
*Sid1%=Sid2% 
*DlenU=D.len% 
*Fat1X=F.at2% 
*D_at1%=D.at1% 
Return 


(aktueller Sektorzähler 
! größer als Sektorenanzahl 
! Zähler auf Null 


Daten an Haupt- 
Programm über¬ 
geben. 


Die nun folgende Prozedur ist mit Abstand die wichtigste von 
allen, da ohne sie keine Sektoren von der Diskette gelesen bzw. 
auf diese geschrieben werden könnten. 

Für diese wichtige Aufgabe wurde hier die BIOS-Funktion 4 
verwendet, da sie im Gegensatz zu den XBIOS-Funktionen 8 
und 9 nicht trackrelativ arbeitet, sondern sich auf die logischen 
Sektoren der Diskette bezieht, und außerdem die Menge der 
Sektoren, die mit nur einem Funktionsaufruf gelesen oder ge¬ 
schrieben werden können, nur durch die maximale Anzahl der 
Sektoren beschränkt ist. Man kann also über die Trackgrenzen 
hinweg lesen und schreiben. 

Die Parameter, die diese Prozedur benötigt, sind re.cht umfang¬ 
reich: 

M%=Modus 0 = Sektor(en) lesen 

(evtl. Disk-Wechsel feststellen) 

1 = Sektor(en) schreiben 
(evtl. Disk-Wechsel feststellen) 

2 = Sektor(en) lesen 
(Disk-Wechsel ignorieren) 

3 = Sektor(en) schreiben 
(Disk-Wechsel ignorieren) 


S%=Sektor 


Nummer des ersten Sektors 
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A%=Anzahl 

D%=Laufwerk 
B%=Pufferad resse 
St$=Puffer 


Anzahl der zu lesenden bzw. zu schreiben¬ 
den Sektoren 

Nummer des bezogenen Laufwerks 
bei M=0 oder M=2 (Lese-Puffer) 
bei M=1 oder M=3 (Schreib-Puffer) 


Am Anfang der Prozedur werden der Moduswert auf den Be¬ 
reich 0-3 und die maximal gleichzeitig lesbare Sektorenanzahl 
auf den Bereich 0-9 reduziert, um unvorhersehbare Lese- und 
Schreibfehler zu vermeiden. 


Procedure Secmod(MX,SX,AX,DX,BX,StS) 
Local PufferS,BkX,Alt 
MX=MX Mod 4 
AX=AX Mod 10 
If MX=0 Or MX=2 
Puf fer$=SpaceS(512*AX) 

Else 

Puffer$=St$ 

If SX=0 


! Modus-Wert nur im Bereich 0 - 3 
• Sektorenanzahl nur im Bereich 0 - 9 
! Sektor(en) lesen? 

! Platz schaffen für Lese-Daten 
! Sektor(en) schreiben! 

Übergabe-String in Puffer setzen 
! Wenn der Bootsektor geschrieben 
1 ! werden soll, 

Bmove Varptr(PufferS),Lpeek(&H4C6),512 ! dann System-Disk-Puffer 
Endif ! auch erneuern. 

Endi f 


! 


BkX=Bios(4,MX,L:Varptr(PufferS),AX,SX,DX) ! Funktion ausführen 
If BkX<>0 ! Bios-Funktions-Fehter aufgetreten? 

Al$=" ERROR # "+StrS(BkX)+»|(s. GFA-Literatur)" 

Alert 1,AIS,1,"RETURN",BkX 
Else ! Nein! 

If MX=0 Or MX=2 ! Nur im Lese-Modus 

*BX=Puffer$ ! gelesene Daten aus dem lokalen 

1 ! Puffer an den globalen übergeben 

Endi f 
Endi f 


Return 


Die nächste Prozedur ist innerhalb des Programms für die 
Überwachung der Tastatur zuständig. Hier wurde nur ein Teil 
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der Prozedur herausgeschnitten, da die anderen Teile zur Erläu¬ 
terung des Disketten-Handlings unerheblich sind. 


Procedure Control. 


Für einen Disketten-Monitor ist es, wie oben schon erwähnt, le¬ 
benswichtig, jederzeit über die aktuelle Diskette informiert zu 
sein. 

Aus diesem Grund wird hier durch ’BIOS(9)’ festgestellt, ob in 
der Zwischenzeit die Diskette gewechselt wurde, um ggf. umge¬ 
hend darauf reagieren zu können und sich die neuen Disketten- 
Grunddaten zu beschaffen. 


If Bios(9,0) ! Diskettenwechsel? 

If Mediach_flgX<>2 ! Media-Change-Control-Flag an? 

Al$="Programm-Unterbrechung ![Diskette wieder einlegen!" 
Al$=AlS+"|(Evtl. Schreibschutz öffnen)" 

Alert 3,Al$,1," OKAY ",B.bkX 

Alert 1,"MEDIA_CHANGE_CONTROL ON | OFF »,Mediach_flg% 

aoisktyp(*SecX,*SptX,*Sid%,*SpfX,*Fat2X,*Dlen%,*Dat1) 

1 ! evtl, neue Disk-Daten 

Dec SektorX ! Sektorzähler -1 

N_key%=1 ! Abbruch-Flag setzen 

If Mediach_flgX=2 ! Media-Change-Control-Flag aus? 

Al$="MEDIA_CHANGE_CONTROL wird ab|der nächsten Sektor-Anzeige|" 
Al$=Al$+"mit der <UNDO> • Taste j wieder aktiviert !" 

Alert 1,Al$,1," OKAY »,B.bk2X 
Endi f 
Endi f 
Endi f 


Return 


Die Prozedur ’Lupe’ hat eigentlich gar nichts mit Disketten zu 
tun. Sie ist einfach eine kleine Spielerei, um dadurch eine An¬ 
wendungmöglichkeit von Trick-Adressen zu demonstrieren. Wie 
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ich Ihnen bereits unter ’Spezial-Adressen’ gezeigt habe, gibt es 
einen 64 Byte großen Speicherbereich, in welchem ständig der 
Maushintergrund zwischengespeichert wird. Dieser Bereich wird 
hier genutzt, um den Bereich, auf dem die Maus sich gerade 
befindet, in etwas vergrößerter Form darzustellen. 


Procedure Lupe 

Local B.uf$,B.in$,IX,JX 
L.flgX=L.fIgX Xor 1 
If L.flg%=1 

Get 568,308,568+64,308+64,L.backS 
Deffill ,0,0 

Pbox 568,308,568+64,308+32 
For IX=0 To 15 
8.uf$=String$(32,"0") 

B.inS=BinS(Lpeek(10232+IX*4)) 
Mid$(B.ufS,33-Len(B.in$),Len(B.inS)) 

I 

For JX=1 To 32 

If Mid$(B.ufS, JX, 1 ) =l, 1" 

Box 568+JX*2,308+IX*2,568+JX*2+1 
Endi f 
Next JX 
Next IX 
Else 

Put 568,308,L.backS 
Endi f 
Return 


Lupen-Flag umschalten 
Lupe an? 

Hintergrund sichern 


! 16 Zeilen 

• Binärstring-Puffer 
! Maus-Zeile L-peeken 
=B.in$ ! rechtsbündig in 
! den Binärpuffer setzen 
! 32 Bits pro Zeile 

! Bit gesetzt? 
,308+IX*2+1 I dann plotten 


I Lupenflag aus! 

I Hintergrund restaurieren 


Hhmmm, tja! Mir wäre am liebsten, wenn es diese Prozedur 
nicht gäbe, da sie meinen verzweifelten Versuch widerspiegelt, 
das System mit 100%iger Sicherheit dazu zu bringen, bei Direc¬ 
tory-, FAT- oder Bootsektor-Manipulation sich alle (!) zur Dis¬ 
kettenverwaltung notwendigen Daten zu beschaffen. Dieses 
Kunststück ist mir nur in begrenzten Maßen gelungen. Die 
Empfindlichkeit des Systems in Beziehung auf Diskettenwechsel 
ist derart groß, daß bei vielen Datenänderungen (also Schreib¬ 
aktionen) auf Disk sofort die Diskette als gewechselt angesehen 
wird. In bezug auf die Aktualisierung des Directorys läßt diese 
Empfindlichkeit sehr zu wünschen übrig. Deswegen war dieser 
Purzelbaum notwendig. 
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Für ein 100%iges Funktionieren kann ich allerdings trotzdem 
nicht einstehen. Bei Berücksichtigung des Umstands, daß ich nur 
drei Wochen Zeit hatte, um mich in diese schwierige Materie 
einzuarbeiten und diesen Monitor zu entwickeln, sollten mir 
diese relativ kleinen Mängel verziehen werden. 

Sie können übrigens in sehr vielen Fällen Mißstände in der 
Directory-Verwaltung beheben, indem Sie tatsächlich die Dis¬ 
kette kurzfristig aus dem Laufwerk herausziehen, wieder hin¬ 
einstecken und eine Funktion aufrufen, die eine Fileselect-Box 
verwendet (z.B. im Monitor die Funktionstaste ’F5’ drücken). 


Procedure Force_dt 
Void Bios(7,0) 

Dpoke 2482,65535 
Pause 20 

Open "O",#97,"Aux:" 

Dir "\*.*" To "Aux:" 
Close #97 

Lpoke Xbios(14,0)+20,0 
Return 


I neuen Bios-Parameterblock holen 
! System-Media_Change_Flag setzen 
! Kontroll- Interrupt abwarten 

! Dumny-'Dir'-Aufruf in die Wüste 

! Aux:-Puffer wieder löschen. 


Mit der nächsten Prozedur ist es möglich, die gesamte Diskette, 
ohne sie formatieren zu müssen, in den Urzustand zu versetzen. 
Zwar sind die Sektoren dann noch mit Daten belegt, aber da 
hiermit die gesamten Directory- und FAT- Sektoren einfach 
komplett gelöscht werden, sieht der ST diese Diskette als frisch 
formatiert an. 


Procedure Clr_dir.fat 

BbS=MkiS(&HF7FF)+ChrS(&HFF)+String$(SpfX*512-3,0)l 
aSecmod(3,Fat2X-SpfX, SpfX, 0,0, Bb$) I 

3Secmod(3,Fat2X,SpfX,0,0,Bb$) ! 

Bb$=String$(DlenX*512,0) I 

8Secmod(3,Fat2X+SpfX,D.lenX.O,0,Bb$) ! 

Return 


FAT-Aufbau 
FAT1 schreiben 
FAT2 schreiben 
Null-Sektoren 
Directory schreiben 


In der Einführung zu diesem Kapitel finden Sie eine Grafik, die 
den Aufbau eines Directory-Eintrags zeigt. Da hier, ebenso wie 
im Bootsektor, alle Word-Daten im MS-DOS-Format vorliegen 
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und außerdem die Zeit und das Datum der Dateierstellung bit¬ 
weise in jeweils einem Word verschlüsselt sind, ist hier einiges 
an Rechnerei notwendig, um sich daraus brauchbare Daten zu¬ 
sammenzubasteln. 

Das Directory wird hier in 32-Byte-Schritten solange durchge¬ 
gangen, bis die Endmarkierung des Directories (4 Nullbytes am 
Anfang eines Eintrags) bzw. bei einem Unterdirectory das Ende 
des ersten Directory-Cluster erreicht wurde. Bei Unterdirectories 
ist es die Regel, daß die einzelnen Directory-Cluster an ver¬ 
schiedenen Stellen auf der Diskette liegen, da diese sich wie alle 
anderen Dateien nach den noch freien Clustern zu richten haben 
und diese unregelmäßig verstreut auf der Diskette liegen kön¬ 
nen. Um das Programm nicht noch umfangreicher werden zu 
lassen, habe ich mich deshalb auf die Anzeige der Einträge aus 
dem ersten SubDir-Cluster beschränkt. 

Alle gefundenen Einträge werden nun analysiert und die Daten 
ausgegeben. 


Procedure F3 


If No.sX-0 

aSecmodC 2,Sek t orX,DlenX,0,*AaJ,""> 
Pbox 4,4,634,267 
Print At(3,1) 

B.countX=0 

Repeat 

B$=MidS(Aa$,B.countX+1,11) 

If Cvl(Left$(B$,4))<>0 
CX=Asc(Mid$(Aa$,B.countX+12,1)) 


kein Abbruch? 

Directory-Sektoren lesen 
Fenster sauber 
Curso positionieren 
Eintrags-Zähler = Null 
Einträge lesen 
Dateiname 

ersten vier Zeichen leer? 

! Attribut 
! formatieren 


CS=SpaceS(3-Len(Str$(CX)))+StrS(CX)+" " 

• Mid*(Aa$,b.countX+13,10) 

1 = 10 reservierte Nullbytes (unwichtig) 

1 Diese Bytes können für versteckte 

1 Informationen genutzt werden. 


DX=Asc(MidS(AaS,B.countX+26,1))+256 
Add DX,Asc(Mid$(Aa$,B.countX+25,1)) 
DS=Right$( H 0“+Str$(DX And 31),2)+"." 
DS=D$+RightS("0"+Str$(DX/32 And 15),2)+".'' 
D$=D$+Str$(DX Div 512+1980)+" " 


! Datum Highbyte 
! Datum Lowbyte 

H 

!|- formatieren 

■I 
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EX=Asc(Mid$(AaS,B.countX+24,1))*256 

! Zeit Highbyte 

Add EX,Asc(Mid$(Aa$,B.countX+23,1)) 

! Zeit lowbyte 

E$=Right$("0"+Str$(EX Div 2048),2)+":" 

• 1 

E$=ES+Right$<"0"+Str$(EX Div 32 And 63),2)+ ,, : ,, 

!|- formatieren 

E$=E$+RightS<"0"+Str$(EX+EX And 63),2) 

■ 1 

FX=Asc(Mid$(Aa$,B.countX+28,1))*256 

! Startcluster HI 

FX=FX+Asc(Mid$(Aa$,B.countX+27,1)) 

! Startcluster LO 

FS=SpaceJ(4-Len(StrS(FX)))+StrS(FX) 

! formatieren 

GX=(FX-2)*2+18 

! Startsektor 

G$=Space$(4-Len(Str$(GX)))+StrS(G%) 

! formatieren 

HX=Asc(MidS(AaS,B.countX+32,1))*2*24 

! Länge I.Byte 

HX=HX+Asc(Mid$(Aa$,B.countX+31,1))*2"16 

! Länge 2.Byte 

HX=HX+Asc(MidS(AaS,B.countX+30,1))*2~8 

* Länge 3.Byte 

HX=HX+Asc(MidS(Aa$,B.countX+29,1)) 

! Länge 4.Byte 

H$=Space$(7-Len(Str$(HX)))+Str$(H%) 

1$=»" 

! formatieren 

If cx=o 

! 

I$=I$+" Standard " 

M 

Endif 

• 1 

If CX And 1 

• 1 

IS=IS+" Read Only " 

! 1 

Endif 

! 1 

If CX And 2 

■ 1 

IS=IS+" Hidden File " 

• 1 

Endif 

1 1 

If CX And 4 

! |- Attribut 

I$=!$+" System-File " 

! | Bezeichnung 

Endi f 

• 1 

If CX And 8 

■ 1 

IS=I$+" Disk-Label " 

■ 1 

Endi f 

• 1 

If CX And 16 

• 1 

I$=IS+" Ordner " 

■ 1 

Endif 

! | 

If CX And 32 

! | 

I$=I$+" Hardd.-Archiv" 

' 1 

Endif 


If Left$(B$)=Chr$(229) 

ILöschflag 

I$=IS+"(gelöscht)" 

Endif 

!(Sigma) gesetzt? 

E i nt rag$=BS-*-CS+D$+ES+F$+G$+H$+1 $ 

!Ausgabestring 

Print At(4,Crslin);EintragS 

! ausgeben 

Add B.countX,32 

!Eintragszähler 

1 

! + 32 Zeichen 
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If B.countX Mod 1024=0 !Seite voll? 

SlUait ! warten 

Pbox 4,4,634,267 'Fenster klar! 

Print At(3,1) (Cursor hoch 

Endi f 
Endif 

Until Left$(B$,4)=Mkl$(0) Or (D.bk5C=2 And B.count%=>992) 

1 Die Schleife wird erst verlassen, wenn entweder im Haupt- 
1 Directory kein Eintrag mehr gefunden wird, oder wenn bei 
' einem Unter-Directory der erste Cluster ausgelesen wurde. 


await 

Alert 2,"1. Directory-Cluster zeigen ?",2,"0KAY|MEIN",Bk% 
Endif 


Return 


Für alle Disketten-Freaks kommt nun eine sehr interessante 
Prozedur. 

Hier wird der Bootsektor analysiert. Interessant wird der Boot¬ 
sektor jedoch erst, wenn man die darin enthaltenen Grunddaten 
auch verändern kann. Wenn Sie im Programm die Funktionstaste 
<F4> drücken, werden diese wichtigen Daten angezeigt. Sie kön¬ 
nen nun mit der Maus jede Zeile davon anfahren und erreichen 
dann mit einem Mausklick, daß Sie neue Daten in die Zeile ein¬ 
geben können. Nachdem Sie 'ZURÜCK 1 angeklickt haben, wer¬ 
den Sie dann gefragt, ob die geänderten Daten auch in den 
Bootsektor auf Diskette geschrieben werden sollen. 

Durch Änderung der Daten (z.B. Anzahl der Sektoren, Anzahl 
der Sektoren pro Track etc.) können Sie so spielend versteckte 
Sektoren erzeugen, indem Sie z.B. mehr Tracks formatieren und 
und mit Daten belegen, als vom System gelesen werden können. 
Wenn Sie nun aus einem Programm heraus diese Daten lesen 
wollen, ändern Sie erneut die entsprechende Angabe im Boot¬ 
sektor und können nun auf die Daten zugreifen. 

Haben Sie 81 oder 82 Tracks pro Seite installiert, können Sie 
sicher sein, daß bei einem normalen Desktop-Diskcopy diese 
Tracks nicht mitkopiert werden. Disketten, die also nicht über 
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die versteckten Daten auf den letzen beiden Tracks verfügen, 
können also dann nicht die Original-Disketten sein (Kopier¬ 
schutz !!). 

Welche Grunddaten im Bootsektor zu finden sind und welches 
Format sie besitzen, ist unter ’XBIOS(18)’ beschrieben. 

Procedure F4 


Restore Bootxt 
For IX=1 To 14 
Read 0. strS.OfsIX,HbX.Ofs2X 
Print At(16,IX*2+2);0.str$; 

If Hb%=65536 ! 


! Data-Zeiger setzen 
! 14 wichtige Daten 

! String,Byte-Offsets und Faktor lesen 
! String ausgeben 
Format > Word? 

Print Peek(BtX+OfsIX-1)*65536+Peek(BtX+0fs1X)*256+Peek(BtX+Ofs2X) 
1 ! 3 Byte Seriennummer aus Puffer holen 


Endi f 

If HbX=0 ! Fillstring? 

For KX=0 To 0fs2% ! Stringbytes lesen 

Print Chr$(Peek(BtX+2+KX)); ! und schreiben 
Next K% ! nächstes Byte 

Endi f 

If HbX=1 ! Format = Byte? 

Print Peek(BtX+0fs1X) ! Byte lesen und schreiben 

Endi f 

If Hb%=256 ! Format = Word? 

Print Peek(BtX+Ofs1X)*(HbX)+Peek(BtX+Ofs2X) 

1 ! Low <> High tauschen (MS-DOS-Format) 

Endi f 


Next IX 


If S.dumr^y$<> l,,, 

Deftext ,4,,6 
Bch.flgX=1 
If IdxX=1 
S_d$=String$(6,0) 

Mid$(S_d$,1,Len(S.dummyS))=S.dummy$ 

Print At(66,2+IdxX*2);S.dummy$. 

Lpoke BtX+2,Cvl(Left$(S_d$,4)) 

Dpoke BtX+6,Cvi(Right$(S_d$,2)) 


I Eingabe gemacht? 

• Änderungs-Flag an 
! Fillstring? 

I 6 Zeichen 
! String einsetzen 
! ausgeben 
! -|und in Puffer 
! -|sch reiben 
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Else ! 

Print At(66,2+Idx%*2);Val(S.durnmyS) 11 " "! 
High%=Val(S.dummy$)/256 ! 

Low%=Val(S.dummy$) And &X11111111 ! 

If Hb%=4096 ! 

Dpoke (Bt%+Ofs1%-1),High% ! 

I | 

Poke (BtX+0fs2%),Low% ! 

Else 


numerische Eingabe! 
Wert ausgeben 
-|auf MS-DOS-Format 
-|umrechnen 
Seriennummer? 

Byte 1+2-| 

(MS-DOS) jin Puffer 
Byte 3 -j 


If 0fs2%>0 

Poke (Bt%+0fs2%),Lou% 

Poke (Bt%+0fs1X),High% 
Else 

Poke (BtX+Ofs1%),Low% 
Endi f 
Endi f 
Endi f 
Endif 


! Word-Format? 

! High-Byte| 

! (MS-DOS) |in Puffer 
! Low-Byte | 

'Byte-Format! 

! in Puffer schreiben 


Return 


Was jetzt folgt, ist nichts für schwache Nerven. 

Hier handelt es sich um einen echten Disketten-Dschungel, 
nämlich die FAT. Da sich durch ständiges Erstellen neuer und 
das Löschen alter Dateien die Cluster-Belegung auf der Diskette 
wie Spaghetti ineinander verknäult, haben sich die TOS-Bauer 
hier etwas ganz Besonderes einfallen lassen. 

Um nicht für jede neue Datei, die angelegt wird, neuen Spei¬ 
cherplatz zu verschwenden, wird in der FAT jeder Cluster, der 
nicht bzw. nicht mehr benötigt wird, mit einem 12 Bit-Wert von 
Null gekennzeichnet. Wird nun eine Datei angelegt, geht das Sy¬ 
stem die gesamte FAT durch und sucht der Reihe nach nach 
unbelegten Clusterplätzen. Dies macht es solange, bis die Anzahl 
der gefundenen Cluster (1 Cluster = 1024 Byte) ausreicht, um 
die Datenmenge der neuen Datei unterzubringen. Die Nummer 
des ersten gefundenen freien Clusters wird dann im Directory in 
das 27. und 28. Byte des neuen Directory-Eintrags geschrieben. 
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Da wir aber konfuserweise nicht im ST-Format arbeiten, son¬ 
dern im MS-DOS-Format, steht im 27. Byte das LowByte und 
im 28. Byte das HighByte dieser Zahl. Um die Nummer des er¬ 
sten belegten Clusters dieser Datei zu erfahren, muß man also 
diesen Wert aus dem Directory-Eintrag der betreffenden Datei 
auslesen. Wie das gemacht wird, habe ich oben unter ’Procedure 
F3’ schon gezeigt. 

Die durch die Datei belegten Cluster ermittelt man nun, indem 
man mit dieser Cluster-Nummer nun in die FAT geht. Und 
zwar an den FAT-Platz, der für diesen betreffenden Cluster re¬ 
serviert ist. Dort steht nun die Nummer des nächsten von dieser 
Datei belegten Daten-Clusters. Nun springt man in den FAT- 
Platz der nun wieder für diesen Cluster reserviert ist usw., bis 
man auf einen Platzeintrag mit dem Wert ’&HFFF’ trifft. Dieser 
Wert stellt die Endmarkierung einer Datei dar. D.h., daß der 
Cluster, in dessen FAT-Platz der Wert ’&HFFF’ steht, der letzte 
dieser bestimmten Datei ist. 

Um jetzt feststellen zu können, welches Byte innerhalb dieses 
letzten Daten-Clusters das letzte Byte der Datei ist, wird die 
Anzahl der gelesenen Cluster mit der im Directory eingetragenen 
Dateilänge verglichen. Ist die Datei z.B. 2466 Byte lang, muß 
also das 418. Byte (2466-2*1024) das letzte Byte der Datei sein. 

Damit nicht genug! Daß ein Cluster zwei Sektoren umfaßt, wis¬ 
sen Sie bereits. Wenn eine Diskette 720 Sektoren hat, denkt man 
sich, daß demnach also 360 Cluster vorhanden sein müßten! Weit 
gefehlt! Im Normalfall hat eine 720-Sektoren-Diskette nur 351 
Datencluster. Das liegt daran, daß die ersten 18 Sektoren (nor¬ 
malerweise!) für Bootsektor, FATs und Haupt-Directory ausge¬ 
nommen sind. Da die Clusterzählung mit Null (bei Sektor 
1/Track 0 der Diskette) beginnt, hat der erste zur Datenspei¬ 
cherung freie Cluster die Nummer 2. Sektor 19 und 20 bilden 
also den ersten Daten-Cluster. 

Aus diesem Grund sind die ersten beiden FAT-Plätze mit 
'&HF7FFFF’ belegt, was soviel heißt wie: "Cluster 0 reserviert 
und Cluster 1 belegt". 



104 


GF A-BAS IC Tips & Tricks 


Jaja, so einfach ist das! 

Um das Chaos noch perfekt zu machen, müssen auch die Ein¬ 
träge der FAT-Plätze verdreht gelesen werden (MS-DOS). Es ist 
schon kompliziert genug, aus jeweils drei Byte für zwei FAT- 
Plätze immer die Halbbytes zu selektieren. Daß man nun auch 
noch die drei einzelnen Nibbels (je 4 Bit) vertauschen muß, setzt 
dem Ganzen die Krone auf. 

Aber wozu gibt es Leute, die sich die Arbeit machen und fertige 
Algorithmen zur FAT-Analyse erarbeiten? 

Einen solchen Algorithmus finden Sie in den nächsten beiden 
Prozeduren. 

Eine Volksweisheit sagt: "Ein Bild sagt mehr als tausend Worte!" 
Frei nach diesem Motto folgt nun eine Grafik, die das Ge¬ 
schriebene hoffentlich verständlich werden läßt. 



Abb. 7: Die FAT-Analyse 
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Procedure F_analyse(ClX,Txt$) 

Local IX 

3Fat_array(*A.len%) (Erstmal alle FAT-Eintröge holen 

IX=ClX-2 (Startindex = Startcluster-2 

If IX<0 !Startcluster im Directory = 0 ? 

Al$="Directory defekt ! Das File|wurde nach WRITE-Modus evtl." 
Al$=Al$+"|nicht korrekt geschlossen !" 

Alert 1,Al$,1," Aha ",F.bkX 

SektorX=11 !Schleifenzähler auf Directory-Start 

Else Igültiger Startcluster im Directory! 

Deftext ,,,4 
Deffill ,0,0 

Get 92,292,635,391,L.screen$ ICluster-Anzeigefenster sichern 
Pbox 90,272,637,375 
Pbox 92,274,635,373 

If FatX(IX)>0 And FatX<IX)<&HFFF! Zeiger auf nächsten Cluster? 

Print At(17,47),-"Weitere ";Txt$,-"-Cluster: 

Else IStartcluster = Endcluster 

Print At(47,55);"Keine weiteren ";Txt$,-"-Cluster !"; 

Endi f 

Cl.flg%=1 !Cluster-Anzeige-Flag an 

Repeat 

If Fat%( IX)o&HFFF And FatX(IX)<>0 (nächster Cluster-Zeiger? 

If Crscol>103 ! Zeile voll? 

Print At(17,Crslin+1); ! Zeilenumbruch am re. Fensterrand 

Endi f 

Print FatX(lX) 1 ! Cluster ausgeben 

Endi f 

JX=IX !FAT-Index merken 

IX=FatX(IX)-2 (Sprung auf nächsten Cluster 

Until FatX(JX)=&HFFF Or FatX(JX)=0 

• Schleife verlassen, wenn Endcluster erreicht oder kein neuer 
1 (Zeiger gesetzt ist. 

Endif 

Deftext ,,,6 
Return 


Dies ist die Prozedur, die erstmal die gesamte FAT ausliest, in 
das richtige Zahlenformat Verdreht’ und die ermittelten Werte 
in ein eindimensionales Integer-Feld schreibt. Um sich besser 
orientieren zu können, beginnen die Platzeinträge mit Cluster 2 
hier im Null-Element. 
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Procedure Fat_array(Arr_lenX) 

Local IX,JX,Bb$,LowX,HighX,Fat$,ByteIX,Byte2X 
Erase FatXO 

Dim FatX(SecX/2) •Feldlänge=Clusteranzahl 

3Secmod(2, Fat2X-SpfX,SpfX,0, *Bb$, ,MI ) •FAT-Sektoren lesen 

For IX=4 To (SecX-18)/4*3 Step 3 


Den Grund für den Aufbau dieses Schleifen-Limits habe ich 
oben in der Einführung zur ’Procedure F_analyse’ schon ange¬ 
deutet. Er ist abhängig vom 12-Bit-Format der FAT-Einträge 
und von der Differenz zwischen Cluster-Nummer und Feldindex 
(Index = Cluster-Nummer minus 2). 


Fat$=Mid$(Bb$,IX,3) 
Byte1X=Asc(Left$(FatJ)) 

I 

LowX=(Peek(Varptr(Fat$)+1)) And &X1111 


HighX=Peek(Varptr(Fat$)+1)/16 
Byte2X=Asc(Right$(Fat$)) 

I 

FatX<JX)=(LouX*256+Byte1X) 
FatX(JX+1)=(Byte2X*16+HighX) 
Add JX,2 
Next IX 
*Arr_lenX=JX 
Return 


•Einzelner FAT-Eintrag 
•untere 2 Nibbel des 
• vorderen Eintrags 
•Low-Nibbel |-des mittleren 
•High-Nibbel |- Bytes 
•obere 2 Nibbel des 
! hinteren Eintrags 
!12 Bit des vorderen Eintrags 
! 12 Bit des hinteren Eintrags 
lEintragszähler +2 

!echte FAT-Länge zurück 


Es folgt eine Prozedur, mit der Sie Ihre Disketten selbst forma¬ 
tieren können. Es ist oft lästig, den Interpreter verlassen zu 
müssen, um eine Diskette formatieren zu können. Mit etwas 
Geschick dürfte es Ihnen möglich sein, die für die Formatierung 
zuständigen Prozeduren aus diesem Programm herauszufiltern 
und auf eigene Bedürfnisse anzupassen. 

Genauere Informationen zu diesem Thema finden Sie unter 
’XBIOS(18)\ 
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Procedure F dial 


If T.bk2X=1 ! Disk komplett formatieren? 

T.bkX=1 ! Formatierungs-Schleife auf! 

TsX=0 ! Starttrack =0 

Al$="Wieviel Sektoren pro Track?" 

Alert 2,Al$,1," 9 | 10 ",T.bk4X 
AlS="Einseitig oder zweiseitig?" 

Alert 2,Al$,1."Single|Double",T.bk5X 
SidX=T.bk5X 

But$=StrS(SidX*80)+"|"+Str$(SidX*81)+"|"+Str$(SidX*82) 

Alert 2,"Wieviel Tracks?",1,ButS,T.bk3X 
TX=80*SidX+SidX*(T.bk3X-1)-1 
1 80 = minimale Trackanzahl pro Seite 

1 | Single | Double | 


* SidX (Seitenanzahl) => | 80 | 160 

+ SidX mal 0, 1 oder 2 => | 0/1/2 | 0/2/4 

| 80/81/82 | 160/162/164 

- 1 => (Zählerlimit)| 79/80/81 | 159,161,163 


! Sektoren pro Track 
Zu formatierende|Diskette einlegen!", 1,"IS DRIN",T.bk.6% 


SptX=8+T.bk4X 
Alert 1," 

Endif 
If T.bkX=1 
For IX=TsX To TX 
If SidX=2 

TrkX=IX Mod (SecX/SptX/2) 
If Odd(IX) 


Sid_X=1 
Else 

Sid_X=0 ! 

Endi f 

Else ! 

TrkX=IX ! 

Sid_X=0 ! 

Endi f 


Text 35,330,Str$(IX)+" » 
aFormatter(SptX,Sid_X,TrkX,*NfX)! 
If NfX=2 ! 

IX=TX ! 

FlgX=1 • 


Formatieren? 

Starttrack bis Endtrack 
Doppelseitig? 

gerade/ungerade Tracknummer 
ungerade? 
dann auf Seite 2 
gerade! 

dann auf Seite 1 

Einseitig! 

T racknummer 
auf Seite 1 


Formatieren 

Formatierung abgebrochen? 
Zähler auf Endtrack 
Abbruchflag setzen 
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Endi f 

Next IX ! nächster Track 

If T.bk2%=1 And FlgX=0 ! Komplett-Formatierung OK? 


Aufbau des Bootsektors s. unter ’XBIOS(18)\ 


Boot$=MkiS(0)+String$(6,"N M ) 

BootS=Boot$+Mki$(Random(65535))+Chr$(Random(255)) 
Boot$=Boot$+MkiS(&H2)+ChrS(2)+Mki$(&H100)+Chr$(2) 
Boot$=Boot$+Hki$(&H7000)+Chr$(((TX+1)*SptX) And &HFF) 
Boot$=Boot$+Chr$((T%+1)*Spt%/256)+Chr$(247+Sid%) 
Boot$=Boot$+Mki$(&H500)+Mki$(SptX*256)+MkiS(Sid%*256) 
Boot$=Boot$+Mki$(0)+String$(30,"N H )+String$(12,0) 
Boot$=BootS+String$<3,245)+ChrS(&HFE)+Chr$(&H4F) 
BootS=Boot$+Chr$(0)+Chr$(1)+Chr$(2)+Chr$(&HF7)+String$(22,"N") 
Boot$=Boot$+String$(12,0)+String$(3,245)+Chr$(&HFB) 
Boot$=Boot$+St ring$(391,0)+Mki$(&HABCD) 

I 

3Secmod(3,0,1,0,0,Boot$) ! Bootsektor auf Disk schreiben 

3Clr_dir.fat ! FAT einrichten 

aoi sktyp(*SecX,*Spt%,*Sid%,*SpfX,*Fat2X,*DlenX,*Dat1) 

1 I neue Disk-Daten holen 

3Force_dt ! DIR-Transfer erzwingen 

Dec SektorX ! Schleifenzähler -1 

Endif 

Text 35,330,StrS(Int(SektorX/SptX))+" " 

FlgX=0 
Endi f 

If T.bkX=3 Or T.bk2X=3 I Abbruch? 

Sh.flgX=1 I Rücksprungflag für 'Main 1 setzen 

Sput F.scrS I Fullscreen restaurieren 

Endi f 
Return 


Ein bißchen Komfort muß sein. 

Haben Sie irrtümlich eine Datei gelöscht, können Sie sie wieder 
restaurieren, solange die entsprechenden Sektoren und FAT- 
Einträge nicht durch eine Folgedatei überschrieben wurden. 

Allerdings sind hiermit nur Dateien auf der obersten Directory- 
Ebene restaurierbar. Dateien, die in einem Ordner lagen, können 
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hiermit nicht zurückgeholt werden, da die Suche nach den zu¬ 
sammengehörigen Daten-Cluster dadurch wesentlich erschwert 
würde. Grundsätzlich ist es jedoch auch möglich, Dateien aus 
SubDirs zu restaurieren. Wie man zu einer Datei bzw. zu einem 
Unterdirectory gehörende Cluster zusammensucht, wurde ja be¬ 
reits in der Erläuterung zur ’Procedure F_analyse’ angedeutet. 


Procedure F8 
Erase B$() 

• -1 

Erase FX() 

! -| Felder löschen 

Erase HX() 

• -1 


Dirn BSC 112),F%(112),H%(112) 

B$() Stringfeld für die Namen der gelöschten Dateien 
F%() Integerfeld für Startcluster 

H%() Integerfeld für Dateilängen 

Deffill ,0,0 

B.countX=0 1 Bytezähler auf 0 

aSecmod(2,Fat2%+SpfX,DlenX,0,*Bb$, IIM )! Haupt-Directory laden 
IX=0 ! Eintragszähler auf 0 

Repeat 

B$=Mid$(Bb$,B.countX+1,11) • Eintrag selektieren 

CX=Asc(Mid$(Bb$,B.countX+12,1)) ! File-Attribut 

If Cvl(Left$(B$,4))<>0 And Left$(B$)=Chr$(229) And CX<>8 And CX<>16 
1 !gelöschter Eintrag/kein Label/kein Ordner? 

B$(IX)=B$ ! Dateinamen eintragen 

FX(IX)=Asc(Mid$(Bb$,B.countX+28,1))*256 !Starteluster (High) 

FX(IX)=FX(IX)+Asc(Mid$(Bb$,B.countX+27,1)) !+Startcluster (low) 

HX( IX)=Asc(Mid$(Bb$,B.countX+32,1))*2 A 24 Hänge (Byte 4) 

HX(IX)=HX(IX)+Asc(MidS(Bb$,B.countX+31,1))*2 A 16!+lange (Byte 3) 
HX(IX)=HX(IX)+Asc(Mid$(Bb$,B.countX+30,1))*2'8 I+Länge (Byte 2) 
HX( IX)=HX( IX)+Asc(Mid$(Bb$,B.countX+29,1)) IHange (Byte 1) 
Inc IX ! Eintragszähler +1 

Endif 

Add B.countX,32 ! Bytezähler einen Eintrag weiter 

Until Left$(B$,4)=Mkl$(0) • Exit, wenn Directory-Ende 

If IX=0 ! keine gelöschte Datei gefunden? 

Pbox 108,346,544,364 

Print At(24,45),-"Keine gelöschten Dateien vorhanden !" 

Pause 80 
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Else 


If XX>469 And XX<529 
Pbox 470.Y1X+1,529,Y2X 
Pause 10 

Pbox 470,Y1X+1,529,Y2X 
Deffill ,0,0 
Graphmode 1 
Pbox 108,346,544,364 
Print At(27,45),'"Restauriere 
Sget F.screenS 
3Fat_array(*A.ien%) 

3G_etclus(FX(J%),H%(J%),A.len%, JX) 
Dec SektorX 
Endi f 
Endi f 


• gelöschte Datei gefunden! 


! 'RECOVER'? 

!'l 

! |- Blinker 

l-l 


! Mini-Fenster klar 
";"X";R.file$ 

! Screen sichern 
! FAT auseinandernehmen 
! relevante Cluster feststellen 
! Schleifenzähler -1 


Return 


Während die letzte Prozedur die Aufgabe hat, alle Directory- 
Einträge zu selektieren, die mit der Lösch-Markierung ’&HE5’ 
beginnen und die FAT in ein Array zu übertragen, ist die näch¬ 
ste Prozedur dafür zuständig, die Anzahl der benötigten Cluster 
zu ermitteln, die FAT der Reihe nach nach leeren Plätzen zu 
durchsuchen und ggf. die richtige Clusterfolge der zu restaurie¬ 
renden Datei wieder in die FAT einzutragen. 


Procedure G_etclus(Cl_aX,Cl_eX,Arr_lenX,P.osX) 

IX=Cl_aX-2 ! Feldindex = Startcluster -2 

If IX<0 Or Cl_eX=0 ! ungültiger Startcluster? 

1 ! oder Datei länge = 0 

Al$="Directory defekt ?! Das File|wurde nach URITE-Modus evtl." 
Al$=AlS+"|nicht korrekt geschlossen! |Restauration unmöglich !" 
Alert 1,Al$,1," Aha »,F.bkX 
Else ! Startcluster OK 

If Cl_eX Mod 1024=0 ! Dateiende genau auf Sektorende? 

Dec Cl_eX ! um 1 vermindern 

Endi f 

Cl_eX=Int(Cl_eX/1024)+1 


! Anzahl der benötigten Cluster 
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If Fat%(IX)<>0 ! Cluster schon belegt? 

Al$="File wurde bereits durch|Folgedatei überschrieben!" 
AlS=At$+"|Restauration nicht mehr|möglich!" 

Alert 1,Al$,1," SCHADE ".Rs.bkX 
Goto No.restore 

Else ! Cluster ist frei! 


Deffill ,0,0 

Get 92,292,635,391,L.screen$ ! Cluster-Anzeigefenster sichern 

Pbox 90,272,637,375 ! Fenster klar 

Pbox 92,274,635,373 

Cl.flg%=1 ! Cluster-Anzeige-Flag an 

HidS(Bb$,Instr(Bb$,BS(P.osX)))="X"+Right$(B$(P.osX),10) 

1 ! Dateinamen restaurieren 

3Secmod(3,Fat2X+SpfX,DlenX,0,0,Bb$) 

' ! Directory auf Disk zurück 


Box 587,355,635,373 
Print At(75,46);"MENÜ" 

Print AtC15,45);"X";R.file$ 
Deftext ,,,4 

Print At(17,47);"Belegte(r) Date 
If Cl_eX=1 
FatX(IX)=&HFFF 
Else 
MemX=IX 

For LX=IX+1 To Arr_lenX 
If FatX(LX)=0 
Inc CtrlX 
If Crscol>103 
Print At(17,Crslin+1); 


-Cluster: »;Cl_aX' 

Nur ein Cluster nötig? 

Endmarkierung setzen 
mehrere Cluster nötig! 
letzten Cluster merken 
FAT-Array durchgehen 
nächste Cluster frei? 
Clusterzähler +1 
Cursor am Fensterrand 
dann neue Zeile 


Endi f 

If CtrlX<Cl_eX 
FatX(Mem%)=LX+2 
MemX=L% 

Print LX+2 1 
Else 

FatX(MemX)=&HFFF 
LX=Arr lenX 


Zähler kleiner Clusteranzahl? 
Zeiger in Array eintragen 
letzten Cluster merken 
Cluster-Nummer ausgeben 
genug Cluster! 

Ende in Array eintragen 
Schleifenzähler auf Endlimit 


Endi f 
Endi f 


Next LX 


Endi f 

S_fatS=Mki$(&HF7FF)+Chr$(&HFF)+String$(SpfX*512-3,0) 

1 ! FAT-Puffer vorbereiten 

For IX=0 To Arr_lenX Step 2 ! FAT-Array durchgehen 

Byte1X=FatX(IX) And &X11111111 !- 

Byte2X=FatX(IX)/256+((FatX(IX+1) And &X1111)*16)!- MS-DOS-Format 
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Byte3X=FatX(IX+1)/16 I- 

Dun.f$=Dum.f$+ChrS(Byte1X)+Chr$(Byte2X)+Chr$(Byte3X) 

' ! FAT-Dumnypuffer aufbauen 

Next IX ! Nächster Index 

Mid$(S_fat$,4,Len(Dum.f$))=0iJn.f$ I String in FAT-Puffer einsetzen 
aSecmod(3,Fat2X-SpfX,SpfX,0,0,S_fat$) I FAT 1 auf Disk schreiben 
3Secmod(3,Fat2X,SpfX,0,0,S_fat$) !FAT 2 auf Disk schreiben 

Endi f 

3Force_dt ! DIR-Transfer erzwingen 

Endi f 

No.restore: 

Deftext ,,,6 
Return 
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3. TOS-Allerlei 


In diesem Kapitel finden Sie viele kurze Beispielprogramme, die 
sich wegen ihrer Kürze nicht auf der Diskette befinden. 

Das Betriebssystem des Atari ST bietet eine fast unüberschau¬ 
bare Fülle von Routinen und Funktionen an. In Entwicklungs¬ 
systemen, die etwas auf sich halten, werden diese Routinen für 
den Programmierer verfügbar. 

Es gibt sicherlich Literatur über diese Bibliotheken, es ist jedoch 
für den Ungeübten meist sehr schwer, wenn nicht sogar unmög¬ 
lich, aufgrund dieser Literatur mit diesem Angebot an Routinen 
aus dem GFA-BASIC heraus etwas anfangen zu können. 

Dies liegt hauptsächlich darin begründet, daß oft Grundkennt¬ 
nisse in der Maschinensprache oder in ’C* vonnöten sind, um 
sich bei manchen Routinen ein Bild ihrer Arbeitsweise ver¬ 
schaffen zu können. 

Um das Problem der Formatbestimmung und der Parameter¬ 
reihenfolge etwas in den Griff zu bekommen, habe ich mir des¬ 
halb erlaubt, eine Möglichkeit des GFA-BASIC ausgiebig zu 
nutzen: Die Makros! 

Bei Übergabe der Parameter an diese Kompakt-Funktionen 
brauchen Sie sich über das zu übergebende Zahlenformat keine 
Gedanken mehr zu machen. 

Wenn man sich näher mit diesen selbstdefinierten Funktionen 
auseinandersetzt, kann man sich dadurch eine umfangreiche 
Bibliothek an echten Befehlserweiterungen schaffen. Die fertige 
Bibliothek speichert man mit ’Save,A’ auf Diskette, lädt sie bei 
der Programmentwicklung ans Ende des Programmspeichers und 
kann nun diese Funktionen wie BASIC-Befehle verwenden. Was 
sie von echten Befehlen unterscheidet, ist der Umstand, daß ihr 
Aufruf entweder über ’VOID’, als Zuweisung oder als Funk¬ 
tionsargument erfolgen muß. 
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Beispiel: 

Void aFunktion(evtl.Parameter) 

Print 3Funktion(evtl-Parameter) 

A5t=aFunktion(evtl .Parameter) 

A$=aFunktion*(evtl-Parameter) 

A$=Str$(3Funktion(evtl.Parameter)) 

A%=ValOFunktionSCParam.)+aFunktion*(Param.) 

+StrS(aFunktion(Param.)) 

etc. Da der Mensch sich verständlicherweise eher an die Bedeu¬ 
tung von Namen als von Zahlen erinnern kann, ist es nach eini¬ 
ger Gewöhnungszeit im Umgang mit diesen Makros recht ein¬ 
fach, sich den Funktionsnamen und die evtl, zu übergebenden 
Parameter zu merken. Wenn man den ’Box’- oder ’Line’-Befehl 
verwendet, weiß man ja auch nach einiger Zeit, welche Para¬ 
meter dieser Befehl erwartet, ohne jedesmal nachschauen zu 
müssen. Bei numerisch indizierten Funktionsnamen (z.B. 
XBIOS(15)..Bios(6)..Gemdos(22)) ist es schon wesentlich schwie¬ 
riger, der Funktionsnummer eine bestimmten Bedeutung beizu¬ 
ordnen. Ich erinnere mich jedenfalls leichter an den Namen 
eines Freundes als an seine Telefonnummer. Es wäre auch 
schlimm, wenn es anders wäre. 

Gefällt Ihnen der von mir gewählte Funktionsname nicht, kön¬ 
nen Sie ihn natürlich nach eigenem Gutdünken ändern. 

Bei genauerem Hinschauen eröffnen sich hier ungeahnte Mög¬ 
lichkeiten, die das Programmieren zur reinen Freude werden 
lassen können. 

Bei all den folgenden XBIOS-Funktionen habe ich dieses Prinzip 
konsequent eingehalten. Die Erklärung der Parameter bezieht 
sich immer nur auf das jeweilige Makro, nicht auf die dahin¬ 
terstehenden System-Aufrufe, auch wenn die Parameter oft 
identisch sind. Eine Liste der verwendeten Funktionen finden 
Sie dann am Ende jedes Abschnitts. Diese Bibliotheken befinden 
sich auch auf der Diskette (XBIOSLIB.LST, BIOS LIB.LST, 
GMDOSLIB.LST). Wie oben beschrieben, können Sie sie in Ihren 
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Arbeitsspeicher laden und sofort einsetzen. Ist Ihr Programm 
fertig entwickelt, löschen Sie alle Funktionen aus dieser Liste, 
die nicht zum Einsatz gekommen sind. 

Es ist übrigens völlig (!!) egal, wo diese Funktionsdefinitionen 
(Deffn Name(Param.)) im Programm auftauchen, solange jede 
Funktion nur einmal definiert wurde. Die Bibliothek, bzw. ein 
einzelnes Makro kann also direkt am Programm-Anfang, in 
einer bestimmten Prozedur, am Programm-Ende oder an jeder 
beliebigen Programmstelle stehen. 


3.1 XBIOS-Funktionen 

Manche XBIOS-Funktionen (z.B. Settime, Gettime, Scrdmp) 
wurden hier nicht aufgeführt, da es dafür vollwertigen BASIC- 
Ersatz gibt (Settime, Date$, Time$, Hardcopy). Sie hier zu er¬ 
wähnen wäre also überflüssig. Die XBIOS-Funktion 0 (Init- 
mouse) wurde nicht aufgeführt, weil mir keine Situation bekannt 
ist, in welcher diese (eigentlich sehr wichtige) Funktion lauf¬ 
fähig eingesetzt wurde und ich sie, ehrlich gesagt, auch einfach 
nicht kapiere. Zu ihrem Einsatz sind äußerst umfangreiche und 
präzise Kenntnisse der Befehlsstruktur des Tastatur-Prozessors 
von Nöten, die ich nicht besitze. Die Definitionen finden Sie 
unter dem Namen "XBIOSLIB.LST" auf der Diskette. 

Hier noch eine Liste der Fehlermeldungen, die das System bei 
nicht korrekt ausgeführten XBIOS-Funktionen zurückgibt. 


XBIOS-Rückmeldungen 

0 Kein Fehler aufgetreten 
-1 Allgemeiner Fehler 
-2 Station nicht empfangsbereit 
-3 Unbekannter Befehl 
-5 Ungültiger Befehl 
-6 Track nicht gefunden 
-7 Bootsektor nicht gültig 
-8 Sektor nicht gefunden 
-10 Schreibfehler 
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-12 Allgemeiner Fehler 
-13 Floppy ist schreibgeschützt 
-14 Floppy wurde gewechselt 
-15 Gerät unbekannt 
-16 Fehlerhafter Sektor 
-17 Floppy nicht eingelegt 

XBIOS(2) 


Hiermit kann die Anfangsadresse des physikalischen Bildschirm- 
Speichers ermittelt werden. Der physikalische Screen ist der, auf 
welchem ein Bild angezeigt wird, also das Fenster in den Atari 
ST. 


Pbase%=3Pbase 
Deffn Pbase=XBI0S(2) 


XBIOS(3) 

Im Gegensatz zum physikalischen Screen existiert ein logischer 
Screen. Dieser ist im allgemeinen mit dem physikalischen Screen 
identisch. Solange man ihn nicht an eine andere Speicherposition 
verbannt (s. XBIOS 5). Alle Bildschirmausgaben werden auf den 
logischen Bildschirm bezogen. D.h., daß von den Ausgaben 
nichts zu sehen ist, wenn Physbase und Logbase mehr als 32 
KByte auseinanderliegen. 

Print SLbase 
Deffn Lbase=XBI0S(3) 


XBIOS(4) 

Hiermit wird die aktuelle Auflösung des Bildschirms ermittelt. 

0 = 320 * 200 Punkte (LOWRES = 16 von 512 Farben) 

1 = 640 * 200 Punkte (MIDRES = 4 von 512 Farben) 

2 = 640 * 400 Punkte (HIRES = schwarzweiß) 

Res%=3Reso 

Deffn Reso=XBI0S(4) 
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XBIOS(5) 

Bei BIOS(3) wurde schon angedeutet, daß die logische und phy¬ 
sikalische Bildschirmadresse verschieden sein können. Dazu muß 
es natürlich eine Möglichkeit geben, diese Adressen zu bestim¬ 
men. Genau das passiert hier. Im ersten Parameter wird die lo¬ 
gische Screen-Basis und im zweiten die physikalische Basis be¬ 
stimmt. Der dritte Parameter der XBIOS-Funktion gilt der 
Bildschirmauflösung. Er kann hier vernachlässigt werden, da 
durch Änderung der Auflösung alleine keine sinnvolle Wirkung 
erzielt werden kann. Um diesen Parameter nutzen zu können, 
sind grundlegende Kenntnisse der Maschinensprache notwendig, 
um durch einen RESET das System mit der neuen Auflösung 
booten zu können. Die selbstdefinierte ’Setscr’-Funktion erwartet 
daher nur die ersten beiden Parameter. Die Bildschirmadressen 
müssen, um einen korrekten Bildaufbau zu erhalten, an einer 
durch 256 teilbaren Adresse liegen. 

Deffn Setscr(L.ad%,P.ad%)=XBI0S(5,L:L.ad%,L:P.acfö,-1) 

Deffn Get256(Adr%)=(Int(Adr%/256)+1)*256 


Das neueste Fadenkreuz-Modell: >> FLEXI << 


On Break Cont 
A$=Space$(32256) 

Void 3Setscr(3Get256(Varptr(A$)),3P.base) 

A%=2 

B%=3 

Defline 6 
Deffill ,2,4 
Repeat 

Mouse X%,Y%,K% 

If X%<I% 

Sub 154,10 

Neu.x%=Abs(X%+10) 

Else 

Add IX,10 
Neu.x%=Abs(X%-10) 

Endi f 
If Y%<JX 
Sub J%,10 
Neu.y%=Abs(Y%+10) 
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Else 

Add JX,10 
Neu.y%=Abs(YX-10) 

Endi f 

IX=IX Mod 639 
Dpoke 9952,Neu.xX 
JX=JX Mod 399 
Dpoke 9954,Neu.yX 
Swap AX,BX 
Cls 

Line IX,0,XX,YX-10 
Line XX,YX+10,IX,399 
Line 0,JX,XX-10,YX 
Line XX+10,YX.639,JX 
Pcircle XX,YX,7 
Circle XX,YX,10 

Void 25Setscr(XBI0S(AX),XBI0S(BX)) 
Until Mousek Or Len(InkeyS) 
DX=Max(XBIOS(AX),XBIOS(BX)) 

Void aSetscr(DX,DX) 


Im Porsche durch den Speicher 

On Break Cont 

Deffill ,2,2 

Pbox 10,10,630,390 

Print At(34,12);"Taste drücken" 

PbaseX=aPbase 

For IX=0 To PbaseX Step 256 
If IX>PbaseX-32000 
Sub IX,240 
Endi f 

Void aSetscrOX, IX) 

Next IX 

Void aSetscr(PbaseX,PbaseX) 

Void Inp(2) 

Edit 


XBIOS(6) 


Eine komfortable Möglichkeit, den Inhalt aller Farbregister 
gleichzeitig auszuwechseln. Dazu wird ein Puffer aus 16 Words 
vorbereitet, der nacheinander die Farbwerte für die einzelnen 
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Register enthält. Als Parameter wird der Funktion dann die 
Adresse dieses Puffers übergeben. Mit dem nächsten VBL- 
Interrupt wird diese Palette dann initialisiert. 

A$=Mki$(2)+Mki$(333)+Mki$(521)+Mki$(1233)+Mki$(187) 

A$=A$+Mki$(I12)+Mki$(43)+Mki$(1561)+Mki$(233)+Mki$(78) 
A$=A$+MkiS<1112)+Mki$(1403)+Mki$(161)+Mki$(1902)+Mki$(0)+Mki$(5) 
Void aSetpal(Varptr(A$)) 

Edit 

Oeffn Setpal(Adr%)=XBI0S(6,L:Adr%) 


XBIOS(7) 

Diese Funktion wurde so aufbereitet, daß nur noch der Farbwert 
eines spezifizierten Farbregisters ausgelesen werden kann. Als 
Rückgabewert erhält man einen Wert ziwschen 0 und 1911 (&H0 
- &H777). Als Parameter wird die Nummer des gewünschten 
Farbregisters übergeben. 

Zur Bestimmung eines Farbregister-Inhaltes eignet sich der 
BASIC-Befehl ’Setcolor’. 

C$=Hex$(3Getcol(1)) 

Print "Rot: ";left$(C$),"Grün: ";Mid$(C$,2,1),"Blau: ";Right$(C$) 
Edi t 

Deffn Getcol(RegX)=XBI0S(7,Reg%,-1) And &HFFF 


XBIOS(8) 

XBIOS(9) 

Es können ein oder mehrere Sektoren von/auf Diskette gelesen/ 
geschrieben werden. Dabei ist ein Puffer mit ausreichender 
Größe einzurichten (512*Anz.d.Sektoren), der bei ’FLOPRD’ die 
gelesenen Zeichen aufnimmt bzw. bei ’FLOPWR’ die zu schrei¬ 
benden Zeichen vor Funktionsaufruf enthält. Hier habe ich die 
beiden XBIOS-Routinen 8 und 9 zusammen mit der Routine 19 
in einer gemeinsamen Funktion zusammengefaßt. Welche der 
drei Funktionen verwendet wird, wird nur durch die Übergabe 
der Funktionsnummer (8,9,19) bestimmt. Alle übrigen Parameter 
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haben bei allen drei Funktionen exakt dieselbe Bedeutung. Bei 
XBIOS(19) (Flopvf) muß der Puffer die Daten enthalten, die mit 
den Daten auf Diskette verglichen werden sollen. 

Bei Aufruf sind folgende Parameter zu übergeben: 

1. Funktionsnummer (Read=8/Write=9/Verify=19) 

2. Anfangsadresse des Puffers 

3. Nummer der anzusprechenden Floppy (0=A; 1=B) 

4. Diskettenseite (SD=0 / DD=0 oder 1) 

5. Nummer des Startsektors (Track-relativ 1-10, bzw. 1-11) 

6. Nummer des Tracks (0 - 79/80/81) 

7. Anzahl der Sektoren, die nacheinander gelesen/geschrie¬ 

ben/verglichen werden sollen. 

Bei evtl, auftretenden Fehlern wird eine Fehlernummer von der 
Funktion zurückgeliefert (F%=@Flop..(...)). Bei ’FLOPVF’ steht 
im Falle fehlerhafter Daten ab Pufferanfang eine mit einem 
Nullbyte abgeschlossene Word-Liste der fehlerhaften Sektoren. 

A$=Space$(512*9) 

Void aFloprwv(8,Varptr(A$),0,0,2,1,9) 

• Hier müßte gegebenenfalls die Diskette gewechselt werden. 

Void 3Floprwv(9,Varptr(AS),1,0,32,5,4) 

FX=3F loprwvO 9, Varptr(AS), 1,0,32,5,4) 

If FX 

Print "Fehlerhafte Sektoren 
Repeat 

AX=Dpeek(Varptr(A$)+IX*2) 

Print AX 
Inc IX 
Until AX=0 
Endi f 
Edit 

Deffn Floprwv(MX,BX,DX,SiX,TX,SX,AX)=XBIOS(M%,l:BX,L:1,DX,SX,TX,SiX,A%) 


XBIOS(IO) 

Wenn Sie dieses Kapitel gelesen haben, werden Sie in der Lage 
sein, Ihre Disketten selbst zu formatieren. Zuerst muß dazu na¬ 
türlich die Diskette in Tracks eingeteilt werden. Das übernimmt 
diese Funktion. Sie können jeweils einen einzelnen Track for- 
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matieren. Wenn Sie das nacheinander mit allen Tracks gemacht 
haben, ist die Diskette formatiert. Nun muß noch der Bootsektor 
und die FAT installiert werden (s. XBIOS(18)), und Sie können 
die Diskette gewohntermaßen benutzen. 

Dieser Funktion muß als erster Parameter die Adresse eines 8000 
Byte großen Puffers übergeben werden, in dem die Track-Daten 
durch die Funktion erzeugt werden. Die selbstdefinierte 
’Format’-Funktion erwartet noch 5 weitere Parameter: 

2. Laufwerk (A: 0 / B:l) 

3. Disk-Seite (einseitig 0 / zweiseitig 0 oder 1) 

4. Nummer des zu formatierenden Tracks je Seite: 0-79, 0-80 
oder 0-81 

5. Anzahl der Sektoren pro Track (9 oder 10) 

6. 'Virgin’, ein Wordwert, mit welchem die Tracks beschrie¬ 
ben werden. Üblich: &HE5E5 oder 0. Kann jeder beliebige 
Wert unter 65535 sein (1027 ergibt ein nettes Pfeilchen- 
Muster). 

Erwähnenswert ist noch, daß das System kein Fehlermeldung bei 
Überschreiten der maximalen Trackanzahl ausgibt. Also 
Vorsicht! 

Wichtig: Vor Start dieses Programmes eine unformatierte oder 
unbeschriebene Diskette in Laufwerk A einlegen !! 


A$=SpaceS(8000) 

For IX=0 To 79 

FX=aFormat<Varptr(A$),0,0,IX,9,&HE5E5) 

If FX 

Print "Fehlerhafte Sektoren in Track ";IX;" ' 

Repeat 

AX=0peek(Varptr(A$)+I%*2) 

Print AX 1 
Inc IX 
Until AX=0 
Endi f 
Next IX 

Print "So sieht der Sektor 1 in Track 2 jetzt aus: ";Chr$(10) 
Open "0" t #1,"VID:" 

A$=Space$(512) 
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Void Floprwv(8,Varptr(A$),0,0,2,1,1) 

Print #1,A$ 

Close #1 
Void Inp(2) 

Edi t 

Deffn Format(B%,D%,Si%,T%,S%,V%)=XBIOS(10,L:B%,L:1,D%,S%,T%,SiX,1, 
L:&H87654321,VX) 

XBIOS(12) 

Für alle, die die MIDI-Ports des ST nutzen wollen, ist das eine 
sehr wichtige Funktion. Der hier zu übergebende String wird als 
kompakte Einheit von der System-Funktion an den Midi-Out- 
Port übergeben. Noch einfacher geht die Daten-Übermittlung 
durch Midi allerdings mit dem ’Open "0",#1 / Print 

# 1 ,"xxx..", bzw. ’Open T,#l / Input #1,A$. 

Übrigens ist es mit den beiden Midi-Buchsen problemlos mög¬ 
lich, zwei Computer durch zwei in HIFI-Geschäften überall er¬ 
hältliche fünfpolige Diodenkabel direkt miteinander zu verbin¬ 
den und kommunizieren zu lassen. Prinzipiell lassen sich sogar 
mehrere STs zu einem kompletten Netzwerk ausbauen, wobei 
allerdings die Midi-Thru-Buchse simuliert werden müßte. Dies 
geht wiederum nur, indem eine Maschine als ’Master-Keyboard’ 
und die anderen mit gleichen Prioritäten als ’Slave-Keyboards’ 
(Begriffe aus der Synthi-Szene) eingesetzt werden. Dazu sind 
den verschiedenen Geräten eigene Identifikationsziffern zuzu¬ 
ordnen, an welchen zu erkennen ist, an welche Maschine die 
aktuelle Information gerichtet ist. Ist sie nicht für die gerade 
empfangende Maschine gedacht, wird der empfangene Daten¬ 
block einfach an die nächste weitergegeben (MIDI-Thru). Mit 
ein bißchen Fantasie ist hier ein regelrechtes Super-Multitasking 
möglich. Bei mehr als 16 Maschinen müssen allerdings weitere 
’Co-Master’ eingesetzt werden, von denen jeder wieder 15 an¬ 
dere Maschinen steuern könnte. Aber wer hat schon 16 STs? 

A$="Zu sendender Midi-String aus Bytewerten" 

Void SIWjnidi(AS) 

Deffn Wjnidi(Buf$)=XBI0S(12,len(Buf$)-1,L:Varptr(Buf$)) 
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XBIOS(14) 

Ebenfalls für Midi-Nutzer und auch für RS232-Fans (DFÜ/ 
Mailbox) sehr interessant, ist die Möglichkeit, die Adressen und 
Betriebszustände der einzelnen Input/Output-Puffer zu ermitteln 
und auch zu verändern. Das folgende kleine Programm zeigt 
Ihnen, wo es dabei lang geht. Wollen Sie die Inhalte verändern, 
poken Sie die gewünschten Daten in den Vektor hinein. 

Beispiel: RS232-Input-Puffer löschen 

Dpoke aiobuff (0)+6,0 
Dpoke aiobuff (0)+8,0 

For JX=1 To 4 
Restore Puffer.datas 
For KX=1 To J% 

Read Zeile$,Of1X,0f2X 
Next KX 

AdresseX=aiobuff(Of1X)+Of2X 
Print Zeile$'Lpeek(AdresseX) 

Restore Titel.datas 
For IX=4 To 12 Step 2 
Read Titels 

Print TitelS," = " 1 ’Dpeek(AdresseX+IX) 11 "Byte" 

Next IX 
Next JX 

Deffn Iobuff(DevX)=XBI0S(14,DevX) 

Puffer.datas: 

Data "RS232 Eingabe-Puffer liegt ab Adresse: ",0,0 
Data "RS232 Ausgabe-Puffer liegt ab Adresse: ",0,14 
Data "Der Tastatur-Puffer liegt ab Adresse: ",1,0 
Data "Der MIDI - Puffer liegt ab Adresse: ",2,0 

Titel.datas: 

Data Puffergröße,Head-Index bei,Tail-Index bei,Low-Uater,High-Water 
Edi t 


XBIOS(15) 

Wieder etwas für DFÜ/Mailbox-Interessierte: die Möglichkeit, 
die RS232-Schnittstelle zu konfigurieren. Die selbstdefinierte 
Punktion erwartet 3 Parameter. 
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1. Baudrate (BaudX) : 0=19200 / 1=9600 / 2=4800 / 3=3600 

(Bits pro Sek.) 4=2400 / 5=2000 / 6=1800 / 7*1200 

8=600 / 9=300 / 10=200 / 11=150 

12=134 / 13=110 / 14=75 / 15=50 


2. KontrolIparameter : 0 = Handshake off (Default) 

(CtrlX) 1 = XON / XOFF 

2 = RTS / CTS 

3 = XON/XOFF und RTS/CTS gleichzeitig 


3. Usart-Register 


Bit 1 und 2 

Bit 3 und 4 

Bit 5 und 6 


no parity 
odd parity 
even parity 

1 Stopbit 
1.5 Stopbits 

2 Stopbits 
8 Databits 
7 Databits 
6 Databits 
5 Databits 


&X0....000 

&X0....100 

&X0....110 

&X0..01..0 

&X0..10..0 

&X0..11..0 

&X000....0 

&X001....0 

&X010....0 

&X011....0 


Wenn Sie einen der Parameter unverändert behalten wollen, 
übergeben Sie einfach eine -1. 

Void Rs232(7,1,&X10111000) 

Deffn Rs232(BaudX,CtrlX,UsartX)=XBIOS(15,Baud%,CtrlX,Usart%,-1,■1,-1) 

XBIOS(16) 

Diese Funktion bietet die äußerst reizvolle Möglichkeit, die 
Tastaturbelegung Ihres ST nach eigenen Bedürfnissen zu ge¬ 
stalten. 

Es existieren nämlich drei Tabellen, die die ASCII-Codes der 
Tasten bei drei verschiedenen Zuständen beinhalten. Der erste 
Zustand ist, wenn 'normal’ geschrieben wird, also weder 
<CapsLock> noch <Shift> gedrückt ist. Der zweite Zustand tritt 
ein, wenn eine <Shift>-Taste gedrückt wird und der dritte, 
wenn die <CapsLock>-Taste gedrückt wurde. 

Die Tabellen sind je 128 Bytes lang. Ihre Adressen lassen sich 
nun durch diese Funktion ermitteln und ggf. auch bestimmen. 
Jede Tabelle ist 128 Bytes lang und enthält der Reihe nach die 
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ASCII-Codes der nach Scan-Code sortierten Tasten. Die Taste 
<F1> hat z.B. den Scan-Code 59. Wollen Sie, daß bei Druck auf 
diese Taste und gleichzeitig gedrückter Shift-Taste das Zeichen 
"A" ausgegeben wird, poken Sie in das Byte 59 der zweiten 
(Shift-) Tabelle den Wert 65. 

Der folgende Fünfzeiler hilft Ihnen mit absoluter Sicherheit, den 
exakten Scan-Code jeder Taste zu erfahren. 

Do 

ScancodeX=3Scan 
Print Scancode% 

Loop 

Deffn Scan=Gemdos(8)/65536 And 255 



Abb. 8: Scan-Code-Matrix 


Wollen Sie die Adresse des Zeigers auf die drei Tabellen ermit¬ 
teln, bzw. soll eine der Tabellen unverändert bleiben, übergeben 
Sie der Funktion eine -1. 

On Break Cont 

Adr%=aKeyvec(-1,•1,-1) ! AdrX enthält nun die Adresse der 

1 ! Unshift-Tabelle. AdrX+4 die der 

' ! Shift- und AdrX+8 die der CapsLock- 

' ! Tabelle 

A$=Space$(128) ! 128 Byte-Puffer 

Bmove Lpeek(AdrX),Varptr(A$),128! alte Tabelle in Puffer laden 
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B$=Chr$(242)+Chr$(243)+Chr$(244)+Chr$(245)+Chr$(246)+Chr$(247) 
B$=B$+Chr$(251)+Chr$(252)+Chr$(253)+Chr$(254) 

1 ! 1. String (Fl-F10) mit ASCII-Belegung 

1 ! bi Iden 

C$=ChrS(23)+Chr$(24)+Chr$(25)+Chr$(20)+Chr$(21)+Chr$(22) 
C$=C$+Chr$(17)+Chr$(18)+Chr$(19)+Chr$(16) 

1 ! 2. String (Ziffernblock-Zifferntasten) 

1 ! mit ASCII-Belegung bilden 


For IX=17 To 25 ! 3. String (Ziffernleiste-Zifferntaste) 

D$=D$+Chr$(IX) 

Next IX 


D$=D$+Chr$(16) 

Mid$(A$,60,10)=B$ ! String 1 in Puffer einsetzen 

Mid$(A$,104,10)=C$ ! String 2 in Puffer einsetzen 

Mid$(AS,3,10)=DS ! String 3 in Puffer einsetzen 

Void 3Keyvec(Varptr(A$),-1,-1) ! neuen Tabellen-Adresse übergeben 

Print "Fl - F10 oder Tasten in Ziffernleiste/Ziffernblock drücken“ 


Repeat 

KeyX=Inp(2) 

Out 5,KeyX 

Until KeyX>25 And KeyX<242 
Void XBIOS(24) 

Edit 

Deffn Keyvec(U_shftX,ShftX,CapsX)=XBIOS(16,L:U_shftX, L :Shft%, L :Caps%) 


Um bei riskanten Änderungsversuchen hinterher die Tastatur 
noch benutzen zu können, wird hier das Break unterbunden, 
damit auf jeden Fall XBIOS(24) ausgeführt wird. Dadurch wird 
der ursprüngliche Zustand wiederhergestellt, und die Tastatur 
kann wieder normal verwendet werden. 


XBIOS(17) 

Eine Zufallszahl wird durch die BASIC-Funktion ’Random(x)’ 
auch geliefert. Diese XBIOS-Funktion habe ich nun so abge¬ 
ändert, daß eine Bitzahl angegeben werden kann. Wird also als 
Bitzahl 4 übergeben, ist die höchste zurückgelieferte Zufallszahl 
eine 2 A 4 = 16. Bei 5 also 2 A 5 =32 usw. Die höchste verwendbare 
Bitzahl ist 23. 
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Do 

Print S)ZufaU(4) ! 4 = 4 Bit-Zufallszahl (max.23 BIT) 

Loop 

Deffn Zufall(LimX)=XBI0S(17) And ((2*(Lim% Hod 24))-1) 

XBIOS(18) 

Wie bereits bei XBIOS(IO) und ’Procedure F_diaP des Disk- 
Monitors angekündigt, können Sie nach Lektüre dieses Kapitels 
Ihre Disketten selbst formatieren. 

Das Formatieren selbst wird dabei durch XBIOS(IO) übernom¬ 
men. Damit eine Diskette verwendet werden kann, muß aller¬ 
dings noch der Boot-Sektor und die FAT eingerichtet werden. 
Diese XBIOS-Funktion sollte eigentlich die Erstellung eines 
Boot-Sektors übernehmen. Vielleicht tut sie das ja auch, nur ist 
es mir nicht gelungen, mit Boot-Sektoren dieser Art eine Dis¬ 
kette zum Laufen zu bringen. Also machen wir uns den Boot- 
Sektor selber. Das ist ganz einfach, wenn man weiß, wie ein 
solcher aufgebaut ist. Dabei wollen wir uns hier nur um ein 
ganz normales Boot-Format kümmern. Sonderformate bleiben 
dann Ihrer Phantasie überlassen. 

Bei allen Word-Werten ist zu beachten, daß sie im MS-DOS- 
Format angelegt sind, d.h. daß die High- und Low-Bytes mit¬ 
einander zu vertauschen sind. Aus Mki$(512) = &H0200 wird 
dann ganz einfach Mki$(2) = &H0002. 

Boot$=Mki$(0)+String$(6,"N") 

Die ersten 2 Byte sind ein Zeiger auf das TOS-Boot-Programm 
ab Byte 31 des Boot-Sektors. Da ich nicht annehme, daß Sie Ihre 
TOS-Boot-Diskette selbst formatieren wollen, lassen wir diesen 
Zeiger unberücksichtigt, also Null. 

Die Bytes 3-8 sind ein sogenannter ’Filler’. Der Inhalt dieser 6 
Bytes ist unerheblich und kann zur versteckten Speicherung von 
Informationen genutzt werden. Hier habe ich sie auf ’N’ gesetzt, 
wie es von der Desktop-Formatier-Routine gemacht wird. 

Boot$=Boot$+Mki$(Random(65535))+Chr$(RandomC255)) 
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Die nächsten 3 Byte (24 Bit) enthalten eine 24-Bit-Zufallszahl, 
die als Seriennnummer interpretiert wird. 

Boot$=Boot$+HkiS(&H2)+Chr$(2)+Hki$(&Hl00)*Chr$(2) 

Byte 12 und 13 enthalten als Word die Anzahl der Bytes pro 
Sektor, üblicherweise den Wert 512 (&H2, s.o.). 

Byte 14 als Byte die Anzahl der Sektoren pro Cluster, üblicher¬ 
weise den Wert 2. 

Byte 15 und 16 wieder als Word die Anzahl reservierter Sektoren 
Üblich: 1 (&H100 in MS-DOS s.o.). Damit ist der Boot-Sektor 
gemeint. 

Byte 17 ist wieder ein Byte und enthält die Anzahl der FATs 
(File-Allocation Tables). Üblich: 2. 

Boot$=Bootl+Hki$(&H7000)+Mki$(&HD002) 

Byte 18 und 19 sind wieder ein Word, das die max. Anzahl der 
Directory- Einträge pro Directory (also auch Sub-DIRs) angibt. ’ 
Üblich: 112 (&H0070 ST => &H7000 MS-DOS). Wenn Sie einen 
anderen Wert verwenden, sollten Sie darauf achten, daß er durch 
16 teilbar ist. 


Bytes 20 und 21 enthalten als Word die Gesamtanzahl der Sek¬ 
toren auf der Diskette. Hier 720 (&H2D0 ST => &HD002 MS- 
DOS). 


Einseitig / Zweiseitig 


80 Tracks je 

80 Tracks je 

81 Tracks je 

81 Tracks je 

82 Tracks je 
82 Tracks je 


9 Sektoren 
10 Sektoren 
9 Sektoren 
10 Sektoren 
9 Sektoren 
10 Sektoren 


pro Seite = 
pro Seite = 
pro Seite = 
pro Seite = 
pro Seite = 
pro Seite = 


720 / 1440 
800 / 1600 
729 / 1458 
810 / 1620 
738 / 1476 
820 / 1640 


Boot$=BootS+Chr$(248)+MkiS(&H300)+Mki$(&HA00)+Mki$(&H100) 
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Das Byte 22 ist der sogenannte Media Descriptor. Er ist bei 
einseitigen Disketten auf 248 und bei zweiseitigen Disketten auf 
249 festgelegt. 

Byte 23 und 24 gibt als Word die Anzahl der Sektoren pro FAT 
an. Üblich: 5, hier: 3 (&H3 ST => &H300 MS-DOS). 

Sie können also auch weniger als 5 FAT-Sektoren festlegen, so¬ 
lange für jeweils zwei Daten-Cluster der Diskette (1 Cluster=2 
Sektoren) drei Byte Platz darin enthalten sind. D.h., bei 720 
Sektoren = 360 Cluster geteilt durch 2 = 180 * 3 Byte = 540 
Bytes. In diesem Fall müssen Sie also mindestens zwei Sektoren 
pro FAT einrichten. 

Byte 25 und 26 ist wieder ein Word und enthält die Sektoren pro 
Track. Hier: 10 (&HA ST => &HA00 MS-DOS). Üblich sind 9 
Sektoren pro Track. 

Byte 27 und 28 ist noch ein Word mit der Anzahl der Seiten der 
Diskette. Einseitig: 1 (&H1 ST => &H100 MS-DOS), Zweiseitig: 
2 (&H2 ST => &H200 MS-DOS). 

Boot$=Boot$+Mki$(0) 

Als letztes bedeutungsvolles Word wird in Byte 29 und 30 der 
Wert 0 eingetragen. Das bedeutet, daß es keine versteckten Sek¬ 
toren gibt. 

Boot$=BootS+String$(30,"N")+String$(12,46) 
BootS=BootS+StringS(3,245)+Chr$(&HFE)+Chr$(&H4F) 
Boot$=Boot$+Chr$(0)+Chr$(1)+Chr$(2)+Chr$(&HF7) 
8oot$=Boot$+String$(22,"N")+StringS(12,46) 
BootS=Boot$+String$(3,245)+Chr$(&HFB)+String$(391,46) 

Dieser Block bedarf keiner Erklärung. Es handelt sich um die 
Bytes 31 bis 510, die keine erkennbare Bedeutung bei Normal- 
Disketten haben. Bei Disketten, mit denen das TOS gebootet 
werden spll, ist hier das dafür zuständige Boot-Programm zu 
finden. 
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Ich habe hier diesen Block so aufgebaut, wie es die Desktop- 
Formatier-Routine auch macht. Dabei ist im Aufbau kein 
Unterschied zwischen den verschiedenen Formaten festzustellen. 
Er ist immer gleich. 

Boot$=Boot$+Mki$(&HABCD) 

Zum Schluß wird in die Bytes 511 und 512 die Checksumme des 
Boot-Sektors eingetragen. Bei Normaldisketten ist der Inhalt 
dieses Words völlig unerheblich und kann zufällig gewählt 
werden. 

Das Beispielprogramm zeigt Ihnen den oben selbstgeschneiderten 
Boot-Sektor an, verändert den Arbeitspuffer, indem diese 
XBIOS-Routine die in Zeile 4 gemachten Vorgaben darin ein¬ 
trägt, zeigt den neuen Boot-Sektor an, löscht anschließend den 
Puffer, läßt die XBIOS-Routine einen nagelneuen Boot-Sektor 
bauen und zeigt zum Schluß diesen Sektor an. 

Daran ist zu erkennen, daß der Sektor vor Aufruf der Routine 
vorbereitet werden kann (muß?) und XBIOS daran außer den 
Vorgaben, die Sie beim Aufruf gemacht haben, der nicht (!) er¬ 
zeugten Zufallszahl und der Checksumme keine Änderungen 
vorgenimmt. Die Zahlenkolonnen (0-9) dienen hier bei der 
Bildschirmausgabe nur als 'Lineal’. 

Open "0",#1,"vid:" 

Print String$(8,"1234567890"); 

Print #1,BootS; 

Void 3Bootsek(Varptr(BootS), • 1,2) 

Print ChrS(10);Chr$(13);StringS(8,"1234567890"); 

Print #1,BootS; 

Void aBootsek(Varptr(BootS),-1,2) 

Print Chr$(10);Chr$(13);String$(8,"1234567890"); 
BootS=StringS(512,0) 

Void SBootsekCVarptr(BootS),2*25,2) 

Print #1,BootS; 

Print ChrS(10);Chr$(13);St ringt(7,"1234567890");"123456789“; 

Void Inp(2) 

Edit 

Deffn Bootsek(AdrX,Ser%, Typ%)=XB10S(18,L:Adr%,L:Ser%,Typ%,-1) 
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Die ’Bootsek’-Routine erwartet 3 Parameter: 

■ Adr% = Adresse des 512 Byte großen Arbeitspuffers 

■ Ser% = Eine 24-Bit-Seriennummer, die in die Bytes 9-11 ein¬ 
getragen wird. Wird ein Wert > &HFFFFFF übergeben, wird 
eine zufällige Nummer von der Funktion erzeugt. Die Über¬ 
gabe von -1 bewirkt, daß an der Seriennummer keine Ände¬ 
rungen vorgenommen werden. 

■ Typ% = Diskettentyp 

0 = MS-DOS-Format 40 Tracks SD 

1 = MS-DOS-Format 40 Tracks DD 

2 = ST-Format 80/81/82 Tracks SD 

3 = ST-Format 80/81/82 Tracks DD 
1 = Diskettentyp nicht verändern 

Im Beispiel kann statt des selbsterzeugten Boot-Sektors auch 
einer von Diskette in den Puffer geladen werden (s. 
@FLOPRWV), mit XBIOS(18) nach Bedarf verändert und wieder 
auf Diskette zurückgeschrieben werden. 

Wurde die Diskette erstmalig formatiert, muß der erzeugte Boot- 
Sektor auf der Diskette (immer Track 0, Sektor 0 auf Seite 0 !!) 
abgelegt werden. Dann muß allerdings noch die FAT eingerich¬ 
tet werden. 

Die FAT besteht bei einer neu formatierten Diskette aus ledig¬ 
lich den ersten drei Byte, die immer &HF7FFFF enthalten, und 
restlichen Nullbytes. Davon existieren in unserem Fall 2 Stück, 
die immer direkt hintereinander liegen und sich immer an den 
Boot-Sektor anschließen. 

Im obigen Fall müssen also 2 mal 3 Sektoren (je 512 Byte = 3072 
Byte) eingerichtet werden. Also: 


A$=mki$(&HF7FF)+chr$(&HFF)+string$(1533,0) ! 1.FAT 

A$=A$+A$ ! 1.+ 2.FAT 

Void 3Floprwv(9,Varptr(a$),0,0,0,2,6) 
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Übrigens schließt sich direkt an die 2. FAT das Hauptdirectory 
an (s. Kapitel ’Diskettenmonitor’). 

Mit der Funktion ’@Format’ für alle Tracks und dem Aufbau 
des Boot- und der FAT-Sektoren ist Ihre Diskette nun ge¬ 
brauchsfertig. 


XBIOS(19) 

Siehe unter XBIOS(8) / XBIOS(9) 


XBIOS(21) 

Ist es Ihnen auch schon mal passiert, daß Sie mit einer Textver¬ 
arbeitung in einem großen Text herumgescrollt haben und hin¬ 
terher nicht mehr wußten, wo der Cursor geblieben ist? 

Hätte der Cursor geblinkt, würde man ihn sofort wiederfinden. 

Mit dieser Funktion kann der TOS-Cursor vielfältig beeinflußt 
werden. Ich habe daraus 7 Einzelroutinen gemacht. 


Def fn 
Def fn 
Def fn 
Def fn 
Def fn 

Def fn 


Def fn 


Void aCurs_off = Cursor aus 
Void 3Curs_on = Cursor an 
Void asiinkon = Cursor blinkt 
Void aßlink off= Cursor steht 


CurS_off=XBI0S(21,0) ! 

Curs_on=XBIOS(21,1) ! 

Blink_on=XBIOS(21,2) ! 

Blink_off=XBIOS(21,3) ! 

Sc_rate(RateX)=XBIOS(21,4,Rate%) 

Void asc_rate(Blinkrate) 

Xsc_rate(RateX)=XBIOS< 21,4,RateX)+aCurs_on+3Blink_on 
Void aXsc_rate(Blinkrate) setzt Cursor-Blinkfrequenz, 

schaltet Cursor und Blink- 
Funktion an. 

Gc_rate=XBIOS(21,5) ! Rate%=3Gc_rate ergibt aktuelle 

Blinkrate in 'RateX' 


setzt Cursor-Blinkfrequenz 


1 Beispiel: 

Void axsc_rate(16) 

Repeat 

AX=Gemdos(1) And 255 ! Gemdos(l) And 255 ergibt ASCII-Code der 

1 ! gedrückten Taste in 'AX' und gleichzeitige 

1 ! Ausgabe des entsprechenden Zeichens 
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Print 1 A%' ! ASCII-Code ausgeben. 

Until AX=13 ! Abbruch, wem <Return>-Taste gedrückt. 

Edit 

XBIOS(24) 

Siehe auch unter XBIOS(16) 

Wurde mit XBIOS(16) (@Keyvec) die Tastaturbelegung geändert, 
kann hiermit der Urzustand wiederhergestellt werden, falls Sie 
nicht die Belegung so geändert haben, daß die normale Tastatur¬ 
belegung außer Kraft gesetzt ist und Sie keine 'vernünftigen’ 
Zeichen mehr eingeben können. In kritischen Fällen sollten Sie 
bei Testläufen die Break-Funktion (Control/Shift/Alternate) 
unterdrücken (On Break Cont) oder gezielt zu einer Abbruch- 
Prozedur verzweigen (On Break Gosub...), welche dann vor Pro¬ 
grammende XBIOS(24) ausführt. Es werden keine Parameter 
erwartet. 

Deffn S_keys=XBIOS(24) 

XBIOS(26) 

XBIOS(27) 

Ein MFP-Interrupt kann hiermit gesperrt (XBIOS(26) bzw. wie¬ 
der zugelassen werden (XBIOS(27)). 

Die @Mfp-Funktion erwartet 2 Parameter: 

Parameter 1 = Modus (0 = sperren / 1 = zulassen) 

Parameter 2 = Interrupt-Nummer (0 - 15 s. unten) 

Vor Einsatz der ersten Zeile stellen Sie bitte Ihre Monitorlaut¬ 
stärke so, daß Sie die Tastaturklicks hören können. 

Void S)Mfp(0,5) 

Der Tastatur-Repeat und die Klicks sind jetzt gesperrt. Sound- 
Verarbeitung ist ebenfalls gesperrt. 


Sound 3,11,4,4 
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Control/Shift/Alternate drücken. 

Void SlMfpd ,5) 

Sound 3,11,4,4 

Alles wieder okay. 

Deffn MfpCModX,Level%)=XBIOS(26+Mod%,Level%) 

Der MFP-Chip fungiert im ST als Interrupt-Controller. In einem 
Vektor sind hier 16 Interrupt-Routinen aufgeführt, die nach¬ 
einander auszuführen sind. 

0 = Centronics Strobe 

1 = RS232 DCD 

2 = RS232 CTS 

(RS232-Empfänger bereit, Daten senden) 

3 = nicht belegt 

4 = RS232-Baudraten-Generator (Timer D) 

5 = Timer C 

(Systemtakt setzen, Sound-Verarbeitung) 

6 = ACIA-Kontrolle 

(Tastatur, MIDI, Joystick-Ports) 

7 = Disk-Controller, DMA 

8 = HBL-Zähler (Timer B) 

9 = RS232 Output-Error 

(Transmitter-Status in RS232 Parameterblock) 

10 = RS232 Output-Buffer leer 

(Sendebereitschaft, Sende-Register setzen) 

11 = RS232 Input-Error 

(Empfangs-Status löschen) 

12 = RS232 Input-Buffer voll 

(Data in Empfangpuffer schreiben) 

13 = System Clock (Timer A) 

14 = RS232 Ring-Indicator 

15 = Monochrom Monitor Detect 

XBIOS(28) 

Es können mit dieser Funktion die Inhalte der Sound-Register 
ermittelt bzw. bestimmt werden. Bedeutung der Register s. 
XBIOS(32). 
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Die ’@Giacc’-Funktion erwartet drei Parameter: 

■ Parameter 1 = Modus (0 = Reg. lesen / 1 = Reg. schreiben) 

■ Parameter 2 = Registernummer (0 - 15) 

Vorsicht: Register 14 und 15 haben nichts mit der Sound Ver¬ 
arbeitung zu tun, sondern sind für die Floppy da (Funktion 
unbekannt, s. XBIOS(29)/XBIOS(30)). Man läßt sie also besser 
in Ruhe! 

■ Parameter 3 = Bytewert, der bei Modus 1 in das Register ge¬ 
schrieben werden soll. 

Void aGiacc(1,0,15) 

Void SGiaccd ,2,32) 

Void SGiaccd,4,57) 

For 1%=0 To 15 

Print "Inhalt des Soundregisters IX;" = ";aGiacc(0,IX,0) 

Next 1% 

Deffn Giacc(Mod7.,RegX,Bte%)=XBIOS(28,Bte% Mod 256,128*Mod°/.+Reg% Mod 16) 

XBIOS(29) 

XBIOS(30) 

Soundchip-Port-A-Bits setzen oder löschen. 

Bit 0 = Disk-Seite 0 OOngibit(O)) oder 1 OOffgibit(O)) wählen 
Bit 1 = Diskstation A an (aOn..(1)) / aus (aoff..(1)) 

Bit 2 = Diskstation B an (aOn..(2)) / aus (30ff..(2)) 

Bit 3 = RS232 RTS (RequestToSend) an (aOn..(3)) / aus (30ff..(3)) 

Bit 4 = RS232 DTR (DataTerminalReady) an (30n..(4)) / aus (30ff..(4)) 

Bit 5 = Centronics Strobe Busy (30n..(5)) / Stop OOff..(5)) 

Bit 6 = GPO GeneralPurposeOutput-Pin an (a0n..(6)) / aus (30ff..(6)) 

Die beiden selbstdefinierten Funktionen erwarten jeweils als 
Parameter die Nummer des Bits (0-6, s.o.), das gesetzt 

(@Ongibit(x)) oder gelöscht (@Offgibit(x)) werden soll. 

For I%=1 To 20 
Void aongibit(1) 

Print At(10,10);"Diskette einlegen" 

Pause 5 

Void aoffgibit(l) 
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Print At(10,10);" " 

Pause 5 
Next IX 
Edit 

Deffn Ongibit(BitX)=XBIOS(29,Not 2 A (BitX Mod 7)) 

Oeffn Offgibit(BitX)=XBIOS(30,2 A (BitX Mod 7 )) 

XBIOS(32) 

Mit dieser Funktion kann ein von Ihnen vorgegebener Sound- 
String auf Interrupt-Ebene abgearbeitet werden. 

Dazu sind in den ersten 14 Registern des Soundchips bestimmte 
Werte zu setzen, die sich die Funktion aus dem String abholt. 
Außerdem können über drei Befehle, die in den String integriert 
werden, weitere drei Funktionen bestimmt werden, die von der 
benutzten Interrupt-Routine ausgeführt werden. 

Die Struktur dieser XBIOS-Funktion ist nicht gerade einfach zu 
handhaben und liefert bei nur einem falsch gesetzten Register 
oder Befehl einen konfusen Klang- und Rauschsalat. Bei richti¬ 
ger Handhabung können allerdings ganze Musikstücke mehr¬ 
stimmig hiermit abgespielt werden. 

In den String werden mit einem vorangestellten Identifikations¬ 
byte versehene Datenbytes geschrieben, wobei die Reihenfolge 
gleichgültig ist, solange immer ein Bytepaar (eine Ausnahme!) 
zusammen in den String geschrieben wird. 

Folgende Identifikationsbytes sind gültig: 

0 = Das folgende Byte bestimmt mit acht Bit das LowByte der Periodendauer 
des X. Soundkanals (0-256) 

1 = Das folgende Byte bestimmt mit dem LowNibble (4Bit) das Highbyte der 

Periodendauer des 1. Kanals (0-15) 

2 = Das folgende Byte bestimmt mit acht Bit das LowByte der Periodendauer 

des 2. Kanals (0-255) 

3 = Das folgende Byte bestimmt mit dem LowNibble (4Bit) das Highbyte der 

Periodendauer des 2. Kanals (0-15) 

4 = Das folgende Byte bestimmt mit acht Bit das LowByte der Periodendauer 

des 3. Kanals (0-255) 
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5 = Das folgende Byte bestimmt mit dem LowNibble (4Bit) das Highbyte der 

Periodendauer des 1. Kanals (0-15) 

6 = Das folgende Byte bestimmt mit den unteren sechs Bit die Rauschgenera¬ 

tor-Frequenz (0-63) 

7 = Das folgende Byte bestimmt, welche Soundkanäle aktiviert werden sollen. 

Dabei werden die Bitwerte für die aktiven Kanäle von dem Wert 255 abge¬ 
zogen. 


4X11111111 (255) 
4X11111110 (254) 
4X11111101 (253) 
4X11111011 (251) 
4X11110111 (247) 
4X11101111 (239) 
4X11011111 (223) 
4X11000000 (192) 
etc. 


alle Kanäle aus 
Kanal 1 an 
Kanal 2 an 
Kanal 3 an 

Rauschen für Kanal 1 an 
Rauschen für Kanal 2 an 
Rauschen für Kanal 3 an 
alle Kanäle mit Rauschen an 


Achten Sie darauf, daß keine Werte kleiner als 192 verwendet werden, da 
sonst die Floppy-Ports im Soundchip angesprochen werden und dies unvor¬ 
hersehbare Folgen haben kann. 

8 = Das folgende Byte bestimmt in den unteren 4 Bit die Lautstärke für den 

Soundkanal 1 (0-15) 

9 = Das folgende Byte bestimmt in den unteren 4 Bit die Lautstärke für den 

Soundkanal 2 (0-15) 

10 = Das folgende Byte bestimmt in den unteren 4 Bit die Lautstärke für den 

Soundkanal 3 (0-15) 

11 = Mit dem folgenden Byte wird die Feinabstimmung für die Länge der Hüll¬ 

kurve (Sustain/Hüllkurvenfrequenz) vorgenommen (0-255). 

12 = Mit dem folgenden Byte wird die Grobabstimmung für die Länge der Hüll¬ 

kurve vorgenommen (0-255) 

13 = Das folgende Byte bestimmt mit dem oberen Nibble die Art der Hüllkurve 

(8-15) 

8 = \ | \ | \ | \ | \ = Minus-Sägezahn, anfangs fallend 

9 = \_ = anfangs fallend, haltend 

10 = \/ \/\/\/\/ = Dreieckwelle, anfangs fallend 

11 = \| = Attack/Cut, anfangs fallend 

12 = / | / | / (/ | / | = Plus-Sägezahn, anfangs steigend 

13 = / = anfangs steigend, haltend 

14 = /\/\/\/\/\ = Dreieckwelle, anfangs steigend 

15 = /|_ = Attack/Cut, anfangs steigend 


128 = speichert das folgende Byte (0-255) in einem Zwischenspeicher 
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129 = bildet die einzige Ausnahme bezüglich der Bytepaare. Diesem Identifika¬ 

tionsbyte müssen immer 4 weitere Bytes folgen. Diese Bytefolge bewirkt, 
daß der mit '128' zwischengespeicherte Wert in das mit dem ersten Folge¬ 
byte bestimmte Soundregister geladen wird und dieser Wert nach einer be¬ 
stimmten Zeitspanne (4.Folgebyte / 50) im Register um den Wert des 2. 
Folgebytes erhöht wird. Im 3. Folgebyte wird ein Endwert bestimmt, bei 
dessen Erreichen dieser Prozeß abgebrochen wird. Byte 1 = betreffendes 
Soundregister (0-13) Byte 2 = Schrittweite (0-255) Byte 3 = Endwert (0- 
256) Byte 4 = Zeitintervall (0-255) 

130 = Das folgende Byte gibt eine Zeitspanne an. Die Routine wird für die Zeit 

von 'Byte'/50 Sekunden verzögert bzw. bei der Übergabe einer Null be¬ 
endet. 

Deffn DosoundCAdr%)=XBI0S(32,L:Adr%) 


XBIOS(33) 

Es kann die aktuelle Druckereinstellung gelesen bzw. eine neue 
gesetzt werden. 

Wenn man den Wert -1 übergibt, wird ein Bitvektor zurück¬ 
geliefert, der Auskunft über die aktuelle Einstellung gibt. Ein 
von -1 ungleicher Wert wird als neue Einstellung übernommen. 

Dabei haben die ersten 6 Bits folgende Bedeutung: 


gesetzt nicht gesetzt 


Bit 1 

Matrixdrucker 

Bit 2 

Colordrucker 

Bit 3 

Atari 

Bit 4 

Test 

Bit 5 

Centronics 

Bit 6 

Endlos 


Typenraddrucker 

Schwarz/Weiß-Drucker 

Epson 

Maximum 

RS232 

Einzelblatt 


Deffn Printer(AttrX)=XBIOS(33,AttrX) 


XBIOS(35) 

Hiermit kann die Reaktionsverzögerung und der Repeat-Takt 
für den Tastaturklick eingestellt bzw. ermittelt werden. Damit ist 
das gemeint, was man auch mit den beiden Schiebereglern 
(Tastenfinger bzw. Hase und Schildkröte) im Control-Panel des 
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Desktops einstellen kann. Die Reaktionsverzögerung ist die 
Zeitspanne, die zwischen dem Druck auf eine Taste und dem 
Reagieren des Cursors vergeht. Mit dem Repeat-Takt ist die 
Spanne gemeint, die der Cursor nach der ersten Reaktion benö¬ 
tigt, um von einer Cursorposition zur anderen zu springen. 

Im ersten Parameter wird entweder eine -1 (keine Änderung) 
oder die neue Verzögerungsrate erwartet, während der zweite 
Parameter -1 (keine Änderung) oder den neue Takt erwartet. 

Die ’Normal’-Einstellung ist ’Re%’ = 10 und ’Ta%’= 3. 

Zurückgeliefert wird von der Funktion ein Longword, wovon 
die beiden Bytes des LowWords die Reaktionsverzögerung 
(HighByte) und den Takt (LowByte) darstellen. Der Wert 0 in 
’Re%’, bzw. 1 in ’Ta%’ steht für schnell. Je größer der Wert, 
umso langsamer. Wird in ’Ta^o’ eine Null übergeben, ist der 
Tastatur-Repeat ausgeschaltet. 

AX=3Takt( -1,-1) And &HFFFF 
ReX=AX Div &HFF 
Ta%=A% And &HFF 

Deffn Takt(ReX,TaX)=XBIOS(35,ReX,TaX) 

XBIOS(38) 

Mit dieser Funktion kann eine Maschinenroutine, deren Adresse 
als Parameter zu übergeben ist, im Supervisor-Modus ausgeführt 
werden. 

Deffn Supex(AdrX)=XBIOS(34,L:AdrX) 

XBIOS(39) 

Befindet sich das AES im RAM, kann es mit dieser Funktion 
abgeschaltet werden. Das Ergebnis ist ein Reset. Bei ROM-TOS- 
Maschinen konnte ich keine Wirkung feststellen. 


Deffn Reset=XBI0S(39) 
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3.2 GEMDOS-Funktionen 

Das GEMDOS ist die Hauptbibliothek zur Bereitstellung von 
grundlegenden Ein- und Ausgabefunktionen. Genau aus diesem 
Grund können wir hier auf einen Großteil der Funktionen ver¬ 
zichten, da sie wesentlich leichter indirekt über BASIC-Befehle 
verwendet werden können (z.B. Out, Input, Chdrive, Inp?, 
InkeyS etc.). 

All diese Routinen hier aufzuführen, würde nur Platz ver¬ 
schwenden. 

Andere Routinen können innerhalb des GFA-BASIC unmöglich 
korrekt ausgeführt werden. Um den Leser nicht zu verwirren, 
wurde auch auf Erklärungen zu diesen Funktionen verzichtet. 
Unter dem Namen "GMDOSLIB.LST” finden Sie die Definitonen 
auf der Diskette. 

Bei einigen der aufgeführten Routinen wird bei fehlerhaft aus¬ 
geführter Funktion ein Fehlercode zurückgegeben: 

-32 ungültige Funktionsnummer 

-33 angegebene Datei nicht gefunden 

-34 angegebener Pfadname existiert nicht 

-35 zuviele offene Dateien 

-36 Datei-Zugriff ist nicht möglich 

-37 ungültiges Datei-Handle 

-39 Speicher ist nicht ausreichend 

-40 ungültige Speicherblock-Adresse 

-46 ungültiges Laufwerk 

-49 weitere Dateien sind nicht vorhanden 

Wird eine Null geliefert, heißt das, daß die Funktion korrekt 
ausgeführt wurde. 

GEMDOS(l) 

GEMDOS(7) 

Diese beiden Funktionen sind eigentlich mit ’INP(2)’ identisch. 
Der Unterschied ist zum einen der, daß hier ein 32-Bit-Wert 
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zurückgegeben wird. Ein weiterer Unterschied ist der, daß bei 
GEMDOS(l) gleichzeitig mit der Eingabe das eingegebene Zei¬ 
chen an der aktuellen Cursorposition ausgegeben wird. 

Das gelieferte Longword enthält in den unteren 8 Bit 
(A%=@Conin(l) And &HFF) den ASCII-Code und in den Bits 
16-23 (A%=@Conin( 1 )/&H 10000 And &HFF) den Scancode der 
Taste. 

Da die beiden Funktionen eng verwandt sind, habe ich sie zu¬ 
sammen in einer ’Deffn’-Funktion untergebracht. Der zu über¬ 
gebende Parameter bedeutet: 

0 = nur Eingabe, keine Ausgabe 
1 = Eingabe und gleichzeitige Ausgabe 


Repeat 

AX=0 

For IX=1 To 9 ! Schleife wartet auf Eingabe von "GFA-BASIC" 

Add AX,3Conin(1) ! offene Eingabe 
' Add AX,3Conin(0) ! verdeckte Eingabe 
Next IX 
Print 

Until AX=289931869 
Print Chr$(13);Chr$(10);AX 
Edi t 

Deffn Conin(Mod%)=Gemdos(7-ModX*7+Mod%) 

Eine weitere Anwendungsmöglichkeit finden Sie unter 
’XBIOS(16)\ 

GEMDOS(25) 

Diese Funktion ermittelt das aktuelle Laufwerk. Der zurück¬ 
gelieferte ’@Getdrv’-Wert bedeutet: 

1 = Laufwerk A: 

2 = Laufwerk B: 
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For IX=2 Downto 1 
Chdrive IX 

Print Chr$(13);"<RETURN> drücken";Spc<40); 

Fileselect 

Print Chr$(13).;"aktuel les Laufwerk = 

Print Chr$(64+aGetdrv);": (Taste drücken)"; 

Void Inp(2) 

Next IX 
Edit 

Deffn Getdrv=Gemdos(25)+1 

GEMDOS(26) 

Hiermit kann die ’Disk-Transfer-Adresse’ bestimmt werden. Bei 
den GEMDOS-Funktionen 78 und 79 wird das Directory der 
aktuellen Diskette nach bestimmten Dateinamen durchsucht. 
Dazu wird ein Puffer benötigt, in dem die gefundenen Einträge 
eingetragen werden. Die Adresse dieses Puffers wird hiermit 
festgelegt. Er muß mindestens 42 Bytes umfassen. Mehr als 44 
Byte sind allerdings nutzlos, da nur die ersten 42 Byte benutzt 
werden. 

Das Beispiel zeigt eine Anwendung der drei genannten Funk¬ 
tionen. 

Open "0",*I1,"VID:" 

AS=Space$(42) 

Void asetdta(Varptr(AS)) 

AX=3S first("\*.*»+Ch r$(0)) 

Repeat 
If AX 

Print "GEMDOS-Fehler: »;AX 
Else 

D$=Space$(12) 

Bmove 3Getdta+30,Varptr(D$), 12 
SizeX=Lpeek(aGetdta+26) 

Print #1,A$; 

Print 

Print D$""= ";SizeX;" Bytes" 

AX=aSnext 
Endi f 
Until AX 
CI ose #1 
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Deffn Sfirst(AdrS)=Gemdos(78,L:Varptr(Adr$),0) 

Deffn Setdta(AdrX)=Gemdos(26,L:AdrX) 

Deffn Getdta=Gemdos(47) 

Deffn Snext=Gemdos(79) 

Edi t 

GEMDOS(32) 

Mit dieser Funktion hat man die Möglichkeit, die Supervisor- 
Kontrolle außer Kraft zu setzen, indem einfach im Supervisor- 
Modus gearbeitet wird. Es gibt zwei Möglichkeiten, diese Funk¬ 
tion ausführen zu lassen. Beim ersten Aufruf aus dem User- 
Modus kann der Wert Null übergeben werden. Als Rückgabe¬ 
wert erhält man den Stand des Supervisor-Stacks. Nachdem die 
Funktion mit dem Wert Null aufgerufen wurde, wird der Super¬ 
visor-Stack auf den Stand des User-Stacks gesetzt, und das Pro¬ 
gramm arbeitet nun im Supervisor-Modus. 

Der nächste Aufruf sollte dann den Supervisor-Stack mit dem 
alten Stand restaurieren, um wieder ordnungsgemäß im User- 
Modus arbeiten zu können. 

Wird als Wert beim ersten Aufruf aus dem User-Modus eine 
Adresse übergeben, nimmt das System diese Adresse als neue 
Superstack-Adresse an. D.h. der alte Supervisor-Stack ist 'ein¬ 
gefroren’. Bei diesem ersten Aufruf wird ebenfalls ein Long- 
word zurückgegeben, und zwar die alte Adresse des Superstacks. 

Beim nächsten Aufruf muß dann diese Adresse wieder an die 
Funktion übergeben werden, um wieder in den User-Modus 
zurück zu gelangen. 


Beispiel 1 

On Break Cont ! Abbruch unterdrücken 

A%=asuper(0) ! alten Superstack holen 

Bmove 0,XBIOS(2),32000 ! nur im Supervisor-Modus möglich!! 

Print “SUPER-BMOVE aus Supervisor-Bereich = OKAY !" 

Print “Supervisor-Stack ab Adresse: ",A% 

BX=asuper(A%) ! alten Stand restaurieren 

Pause 60 
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Cls 

Print "USER-BMOVE aus Supervisor-Bereich = ERROR !" 

Print "Supervisor-Stack (=USP) ab Adresse: ",BX 

Bmove 0,XBIOS(2),32000 ! im User-Modus nicht möglich!! 

Edit 


Beispiel 2 

On Break Cont ! Abbruch unterdrücken 

AX=aSuper(XBIOS(2)+920) ! neue Supervisor-Stack-Adresse setzen 

Print At(10,10);"SUPERVISORSTACK im Bildschirmspeicher !" 

Label: 

If IX<5000 ! 5000 Errors 

On Error Gosub 123 ! zur Errorroutine 

Else 

On Error Gosub Ende ! der 5001. Error 

Endi f 

Error IX Mod 100 ! Error 'ausführen 1 

Procedure 123 

Inc IX ! Zähler +1 

On Error ! Error-Gosub ausschalten 

Resume Label ! weitermachen 

Return 

Procedure Ende 

BX=3Super(AX) ! Superstack-Adresse restaurieren 

Print At<10,10),■»SUPERVISORSTACK wieder zurück in Adresse »;A% 

Pause 100 
Edit 
Return 

Deffn Super(ModX)=Gemdos(32,L:ModX) 

GEMDOS(47) 

Mit der GEMDOS-Funktion 26 ist es möglich, die DTA zu be¬ 
stimmen. Mit dieser Funktion dagegen kann die Adresse des 
aktuellen Disk-Transfer-Puffers ermittelt werden. Wie unter 
’GEMDOS(26)’ beschrieben, ist dieser Puffer 42 Byte groß. 

Er hat folgenden Aufbau: 

1. - 21. Byte = reserviert 
22. Byte = File-Attribut 

23. + 24. Byte = Uhrzeit der Datei-Erstellung (Word) 
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25. + 26. Byte = Datum der Datei-Erstellung (Word) 

27. - 30. Byte = Dateigröße (erst Low- dann Highword) 

31. - 42. Byte = Dateiname+Extension (incl.Trennpunkt) 

A$=Space$(42) 

Bmove aGetdta,Varptr(A$),42 
Print AS 

Deffn Getdta=Gemdos(47) 

Ein weiteres Beispiel finden Sie unter ’GEMDOS(26)\ 
GEMDOS(67) 

Mit dieser Funktion läßt sich wieder hervorragend Versteck 
spielen. Sie können hiermit das Attribut einer Datei ermitteln 
oder auch verändern. Die Funktion erwartet drei Parameter: 

Dat$ Name der Datei, deren Attribut ermittelt oder verändert 
werden soll. 

Mod% gibt an, ob das Attribut ermittelt (0) oder geändert (1) 
werden soll. 

Attr% gibt das Attribut an, das bei ’Mod% 1’ dem File gege¬ 
ben werden soll: 

0 Normal (lesen/schreiben) 

1 Nur-Lese-Datei 

2 versteckte (hidden) Datei 
4 System-Datei 

8 Disketten-Label 
16 Unter-Inhaltsverzeichnis 

Beim Lese-Modus ist der ’Attr%’-Parameter unwichtig, sollte 
aber trotzdem angegeben werden. Grundätzlich wird bei jedem 
Funktionsaufruf als Rückgabe das aktuelle Attribut geliefert. 

Print "BAS-Datei auswählen" 

Fileselect ,, \*.BAS",'" , ,Dat$ 

O.atr%=achange(Dat$,0,0) 
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If 0.atr%=0 

Print "Altes Atrribut :";0.atrX 
Print achange(Dat$,1,2) 

Pause 100 
Cls 

Print "Datei wird nicht mehr angezeigt" 

Print "Neues Atrribut :",-achange(Dat$,0,0) 

Fileselect »\*.BAS","",Dat2$ 

Cls 

Print "Open ";Chr$(34);"I»;Chr$(34);",#1,";Chr$(34);Dat$;Chr$(34) 
Open "I»,#1,Dat$ 

Print "Datei kann trotzdem geöffnet werden!" 

Print "Datei-Länge :";Lof(#1) 

Close #1 
Pause 200 
Cls 

Atrribut%=achange(Dat$,1,0) 

Print "Attribut wieder auf 'Normal' gesetzt !" 

Print "Datei wird wieder angezeigt !" 

Fileselect "\*.BAS","",Dat2$ 

Else 

Cls 

Print “Gemdos-Fehler ";0.atrX 
Endif 
Edit 

Deffn Change(Dat$,ModX,AttrX)=Gemdos(67,L:Varptr(Dat$),Mod%,Attr%,0) 


GEMDOS(72) 

Diese Funktion ist mit dem BASIC-Befehl 'RESERVE’ ver¬ 
gleichbar und wird auch von diesem benutzt. Es ist hiermit 
möglich: 

1. die Größe des noch freien Benutzerspeichers zu ermitteln. 

2. einen frei bestimmbaren Bereich ab dieser Adresse reser¬ 
vieren zu lassen. 

Der so reservierte Bereich wird von nun an als belegt markiert 
und bei weiteren Speicherplatzvergaben (z.B. an andere Pro¬ 
gramme) ausgelassen. 
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Im BASIC ist von vornherein der gesamte Speicherplatz bis auf 
die letzten 16384 Bytes unterhalb des Bildschirmspeichers 
(XBIOS(2)) reserviert. Wird diese Funktion aufgerufen, ohne daß 
vorher mit RESERVE der BASIC-Speicher eingeschränkt wurde, 
werden genau diese 16384 Bytes als frei angzeigt. 

Um mehr Speicher außerhalb des BASIC-Speichers zu reservie¬ 
ren, muß also vorher der RESERVE-Befehl verwendet werden. 
Als Parameter kann der Funktion eine -1 übergeben werden, 
wodurch die freie Speichergröße zurückgegeben wird. Wird ein 
Wert größer null übergeben, wird das als zu reservierende Spei¬ 
chergröße interpretiert und die Funktion gibt die Anfangs¬ 
adresse des reservierten Bereichs zurück. 

Hier habe ich eine Funktion in zwei ’Deffn’-Funktionen unter¬ 
teilt. Die erste (@G_malloc) liefert die noch freie Größe. Hier 
braucht kein Parameter übergeben zu werden. Der zweiten 
(@S_malloc(Size%)) wird die gewünschte Speichergröße als Pa¬ 
rameter übergeben. Sie liefert dann entweder die Startadresse des 
reservierten Bereichs oder eine Fehlermeldung (s.o.). 

RestX=3G_maüoc 

Print "Fre(0)=";Fre(0);" / Rest=";RestX;" / Himem=";Hintem 
Reserve 200000 

Print "Reservierung durch RESERVE !" 

RestX=3G_malloc 

Print ,l Fre(0)=";Fre(0); M / Rest=";RestX;" / Himem=";Himem 
Print "Reservierung durch MALLOC !" 

SizeX=3G_malloc 
AdrX=3S_malloc(SizeX) 

Print "freier Speicher ab Himem=";Size%;" startadr.=";AdrX 
RestX=3G_malloc 

Print "Fre(0)=";Fre(0);" / Rest=";RestX;" / Himem=";Himem 
Print "MALLOC-Speieher wieder frei / BASIC-Speicher restauriert" 

Void aMfree(AdrX) 

Reserve SRfree 
RestX=3G_malloc 

Print "Fre(0)=";Fre(0);" / Rest=";RestX;" / Himem=";Himem 
Edit 

Deffn G_maltoc=Gemdos(72,L:-1) 

Oeffn Smalloc(SizeX)=Gemdos(72,L:SizeX) 
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GEMDOS(73) 

Wurde durch GEMDOS(72) oder GEMDOS(74) Speicher reser¬ 
viert, kann er mit dieser Funktion wieder frei gemacht werden. 

Dazu wird die Anfangsadresse des Bereichs übergeben. Diese 
Adresse muß mit der bei GEMDOS(74) bzw. GEMDOS(72) 
übergebenen Adresse übereinstimmen, damit keine Fehlermel¬ 
dung zurückgegeben wird (ungültige Speicherblockadresse). 

In diesem Zusammenhang finden Sie hier auch eine Funktion 
’@Rfree\ die Ihnen die gesamte freie Speichergröße liefert, die 
für 'RESERVE’ verfügbar ist. Dabei werden die 16384 Byte, die 
das AES unterhalb des Bildschirmspeichers benötigt, ausge¬ 
nommen. 

Den Einsatz dieser Funktion finden Sie in den Beispielen zu 
GEMDOS(72) und GEMDOS(74). 

Oeffn Rfree=XBIOS(2)-16384-Hirnen* Fre(O) 

Oeffn Mfree(AdrX)=Gefndos(73,L:AdrX) 


GEMDOS(74) 

Wenn bei BASIC-Start schon fast der gesamte Speicher reserviert 
ist und mit der vorherigen GEMDOS-Funktion nur Speicher 
hinter dem schon belegten Speicher reserviert werden kann, muß 
es auch eine Funktion geben, die diese Reservierung einschrän¬ 
ken kann, um evtl, nicht mehr benötigten Speicher an das 
System zurückzugeben. Das wird durch diese Funktion bewerk¬ 
stelligt, welche als Parameter zwei Werte erwartet: 

Adr% beinhaltet die Anfangsadresse des Bereichs 

Size% gibt an, wieviel Byte ab dieser Adresse reserviert 
werden sollen 

Der darüberliegende Bereich wird an das System zurückgegeben 
und kann nun mit GEMDOS(72) für andere Aufgaben neu re¬ 
serviert werden. 
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Rest%=3G_malloc 

Print ,l Fre(0)=";Fre(0);" / Rest=";RestX;" / Himem=";Himefn 
Reserve 200000 

Print "200 KByte Reservierung durch RESERVE !" 

RestX=3G_malloc 

Print "Fre(0)=";Fre(0);" / Rest=";RestX;" / Himem=";Himefn 
Print "freier Speicher hinter HIMEM=";aG_malloc 
AX=as_malloc(20000) 

Print "Startadresse des MALLOC-Bereichs=";AX 
Print "freier Speicher hinter MALLOC-Bereich=";aG_malloc 
Print "Setblock-Returnuert (0 = OKAY)=";aS_block(AX,16000) 
BX=as_mal loc(-1) 

Print "nächste freie Adresse hinter SETBLOCK=";BX 
Void aMfree(AX) 

Reserve 3Rfree 

Print "BASIC-Speicher wieder restauriert! Himem=";Himeni 
Edit 

Deffn S_block(AdrX,SizeX)=Gemdos(7A,0,L:AdrX,L:SizeX) 


GEMDOS(78) 

Diese Funktion liefert Ihnen Information darüber, ob eine be¬ 
stimmte, von Ihnen vorgegebene Datei im Directory der eben¬ 
falls im Pfad anzugebenden Diskette enthalten ist oder nicht. 
Dazu wird ein String übergeben, der den Pfad- und Filenamen 
der gesuchten Datei enthält. Dieser String muß unbedingt (!) mit 
einem Nullbyte abgeschlossen sein. 

Bei der Angabe des Dateinamens können sogenannte ’Wildcards’ 
verwendet werden. D.h., daß für mehrere Zeichen, die nicht nä¬ 
her spezifiziert werden sollen, ein und für einzelne Buchsta¬ 
ben, die bei der Suche unberücksichtigt bleiben sollen, ein ’?’ 
verwendet werden kann. Beispiel: 

"\A????.LST" spricht auf der aktuellen Diskette alle Da¬ 

teinamen an, die mit ’A’ beginnen, fünf 
Zeichen lang sind und die Extension ’.LST’ 
tragen. 
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"B:\ORDNER\AB * spricht auf Disk ’B:’ alle Dateinamen an, 
die im Ordner ’\Ordner’ liegen, und mit 
den Buchstaben ’AB’ beginnen. Hierbei ist 
die Länge des Namens und die Extension 
ohne Bedeutung. 

Bei Verwendung dieser Wildcards wird von dieser Funktion der 
Name der ersten Datei geliefert, die der Suchbezeichnung ent¬ 
spricht. 

Wurde die genannte Datei gefunden, werden im ’Disk-Transfer- 
Puffer’ (s. GEMDOS(26) und GEMDOS(47)) die spezifischen 
Daten eingetragen. Wenn nicht, wird eine Fehlermeldung zu¬ 
rückgegeben. Ein Beispiel zu dieser Funktion finden Sie unter 
’GEMDOS(26)\ 

AX=3Sfirst ("A:\GFA*. *"+ChrS(0)) 

Deffn Sfirst(AdrS)=Gemdos(78,l:Varptr(Adr$),0) 


GEMDOS(79) 

Diese Funktion sucht nach weiteren Dateien mit dem durch 
’GEMDOS(78)’ spezifizierten Namen. Es braucht kein Parameter 
übergeben zu werden. Wurden weitere Dateien gefunden, wird 
ebenfalls jedesmal der ’Disk-Transfer-Puffer’ mit den datei¬ 
spezifischen Daten gefüllt, wo sie dann ausgelesen werden 
können. Ein Beispiel hierzu finden Sie ebenfalls unter 
’GEMDOS(26)\ 

Deffn Snext=Gemdos(79) 


3.3 BIOS-Funktionen 

Die im weiteren Verlauf beschriebenen Definitionen finden Sie 
unter dem Namen "BIOS LIB.LST" auf der Diskette. 
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BIOS(4) 

Mit den XBIOS-Funktionen 8 und 9 haben Sie eine Möglichkeit 
kennengelernt, einzelne Sektoren von Diskette zu lesen bzw. auf 
Diskette zu schreiben. 

Mit dieser Funktion haben Sie eine weitere Möglichkeit, das 
Gleiche zu tun. Der wesentliche Unterschied ist der, daß hiermit 
nicht trackrelativ, sondern diskettenrelativ gearbeitet wird. D.h., 
die angegebene Sektorennummer bezieht sich nicht auf den 
entsprechenden Sektor innerhalb eines Tracks, sondern auf einen 
Sektor innerhalb der gesamten Spanne an Sektoren, die auf der 
Diskette vorhanden sind. 

Dazu wird ein Puffer eingerichtet, der die zu lesenden/ 
schreibenden Daten erhält/enthält. Die Größe des Puffers muß 
512mal so groß sein, wie Sektoren gelesen bzw. geschrieben 
werden sollen (1 Sektor=512 Byte). 

Der Funktion sind fünf Parameter zu übergeben: 

'Rwf%' bestimmt, ob Sektoren gelesen (0) oder geschrieben (1) 
werden sollen. 

'Str%' enthält die Adresse des Puffers, aus dem die Daten 
gelesen bzw. in den sie geschrieben werden sollen. 

Anz%’ enthält die Anzahl der Sektoren, die nacheinander gele¬ 
sen/geschrieben werden sollen. 

'Sec%' gibt an, mit welchem logischen Sektor begonnen werden 
soll (1 - max. Sektorenanzahl) 

Dev%’ bestimmt das Laufwerk, auf welches sich die Funktion 
beziehen soll (0=A;l=B;2=Harddisk). 

AsX=5 

AS=SpaceS(AsX*512) 

AX=aRw_sek(2,Varptr(AS),AsX,10,1) 

Print AS 

Deffn Rw_sek(RwfX,StrX,AnzX,SecX,DevX)=Bios(4,RwfX,L:StrX,AnzX,SecX, 

DevX) 
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BIOS(7) 

Hiermit kann die Adresse des BlOS-Parameterblocks ermittelt 
werden. Es handelt sich um einen 18 Byte großen Puffer, der 
für jedes Laufwerk getrennt angelegt wird. Darin enthalten sind 
grundlegende Daten zu dem jeweiligen Laufwerk bzw. zu der 
darin befindlichen Diskette. 

Aufbau des ’BPB’ (jeweils 1 Word): 

Word 1 Bytegröße eines Sektors 
Word 2 Anzahl der Cluster pro Sektor’ 

Word 3 Bytegröße eines Clusters 

Word 4 Directory-Länge in Sektoren 

Word 5 Größe eines FAT in Sektoren 

Word 6 Sektornummer des 2. FAT 

Word 7 Sektornummer des 1. Daten-Clusters 

Word 8 Anzahl der vorhandenen Daten-Cluster 

Word 9 verschiedene Flags (Bedeutung unbekannt) 

Die Funktion erwartet als Parameter in ’Drv%’ die Kennziffer 
des Laufwerks, dessen ’BPB’-Adresse geliefert werden soll 
(0=A: / 1=B:). 

AX=3Get bpb(O) 

For 1=0 To 7 

Print Dpeek(A%+I*2) 

Next I 
Edi t 

Deffn Get_bpb(Drv%)=Bios(7,Drv%) 

BIOS(9) 

Manchmal ist es interessant zu wissen, ob zwischenzeitlich die 
Diskette in einem der angeschlossenen Laufwerke gewechselt 
wurde oder nicht. 

Dies können Sie durch diese Funktion erfahren. Dabei wird ihr 
ein Parameter (’Drv%’) übergeben, der das Laufwerk angibt 
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(0=A: / 1=B:), das überprüft werden soll. Zurückgeliefert wird 
ein Wert: 

0 = Diskette wurde nicht gewechselt 

1 = Diskette möglicherweise gewechselt 

2 = Diskette wurde gewechselt 

A%=SIMediach(0) 

Print A% 

Edi t 

Deffn Mediach(Drv%)=Bios(9,Drv%) 


BIOS(IO) 

Diese Funktion liefert Ihnen Information darüber, welche Lauf¬ 
werke zur Zeit angeschlossen sind. Als Rückgabewert wird ge¬ 
liefert: 

3 = A und B sind verfügbar 
7 = A, B, und C sind verfügbar 
11 = A, B, und D sind verfügbar 
15 = A, B, C und D sind verfügbar 

Das System geht grundsätzlich davon aus, daß mindestens die 
Laufwerke A: und B: angeschlossen sind. Auch wenn nur Lauf¬ 
werk A: vorhanden ist, wird trotzdem der Wert 3 geliefert. 

Print aorvmap 
Edit 

Deffn Drvmap=Bios(10) 


BIOS(ll) 

Diese Funktion bietet dem Programmierer die hervorragende 
Möglichkeit, seine Programmführung vom Status der 
Wechseltasten abhängig zu machen. 

Damit sind die Tasten <Control>, <Shift li.>, <Shift re.>, 
<Alternate> und <CapsLock> gemeint. Hiermit kann der Status 
nicht nur ermittelt, sondern auch bestimmt werden. 
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Wird als Parameter ’Key%’ eine -1 übergeben, wird von der 
Funktion als Rückgabe der aktuelle Status geliefert. Bei positi¬ 
ven Parameterwerten werden diese als neuer Status interpretiert. 

1 = rechte Shift-Taste gedrückt 

2 = linke Shift-Taste gedrückt 
4 = Control-Taste gedrückt 

8 = Alternate-Taste gedrückt 
16 = CapsLock an 

Es sind auch Tastenkombinationen möglich. Beispiel: 

26 = <CapsLock> an + <Shift li.> + <Alternate> 

Print "Keyboard-Shifter (Control,Shift,Alternate,CapsLock) drücken!" 

Do 

Print At(10,10);3Kbshift(-1)' 

Loop 

Deffn Kbshift(KeyX)=Bios(11,Key%) 


3.4 VDISYS-Routinen 

Die VDI-Bibliothek bietet einige sehr komfortable Routinen an, 
die es Ihnen erlauben, Ihre Programme vielfältiger auszustatten. 
Die Prozeduren sind im File "VDI LIB.LST" zusammengefaßt. 

Viele dieser Routinen sind vollwertig in BASIC-Befehle über¬ 
nommen worden, so daß sie hier nicht aufgeführt werden 
brauchen. 

Die folgenden Routinen bieten vor allem die Möglichkeit, ver¬ 
schiedene aktuelle Grafik-Einstellungen zu erfahren. Gerade für 
die Produktion von Utilities sind diese Routinen interessant, da 
Utilities die aktuellen Einstellungen ja nicht verändern dürfen 
bzw. diese nach Abschluß der Arbeiten wieder restaurieren 
müssen. 

Als erstes stelle ich Ihnen eine echte Trick-Routine vor, die 
einen Mangel des VDI umgehen soll. 
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Es ist mir nämlich nicht gelungen, das für VDI-Aufrufe not¬ 
wendige Handle zu ermitteln. Das Desktop erhält in fast allen 
Fällen das Handle 1. Welches Handle für Ihr jeweiliges Pro¬ 
gramm zuständig ist, hängt davon ab, wie viele Fenster von evtl, 
geladenen Accessories benutzt werden bzw. wie viele Fenster Sie 
im Programm verwenden. 

Um nun mit Sicherheit feststellen zu können, mit welchem 
Handle die jeweilige Funktion aufzurufen ist, bleibt Ihnen 
nichts anderes übrig, als die folgende Prozedur aufzurufen. 

Das Handle wird dadurch ermittelt, daß eine Schleife mit 16 
Schritten (max. Handle-Nummer = 16) durchlaufen wird und in 
jedem Schritt eine 1 Pixel große Pbox gezeichnet wird. Vorher 
wird die VDI-Funktion 104 mit dem Schleifenindex als Handle 
ausgeführt. Diese Funktion hat den Zweck, die Umrahmung der 
Pbox auszuschalten. Logischerweise wird der Rahmen jedoch 
nur ausgeschaltet, wenn die richtige Handle-Nummer übergeben 
wurde. Ob der Rahmen bei dem gerade aktuellen Schleifenindex 
(=HandIe) gelöscht wurde, wird mit dem ’POINT(X,Y)’-Befehl 
des BASIC überprüft. Das heißt also, daß der Schleifenindex als 
Handle übernommen werden muß, bei dem 'Point 1 eine Null 
liefert, also der Rahmen ausgeschaltet ist. 

Da diese Prozedur die aktuelle Füllmuster-Einstellung sowie den 
Grafik-Modus verändert, sollte sie entweder am Anfang des 
Programms oder bei geöffneten Fenstern direkt nach Öffnung 
ausgeführt werden. Gegebenenfalls müssen die beiden genannten 
Grafik-Einstellungen hinterher restauriert werden, da die Proze¬ 
dur sie noch nicht restaurieren kann. Sie verfügt ja noch nicht 
über das richtige Handle, sondern liefert es erst. 

Damit das aktuelle Bild nicht gestört wird, wird vor Ausführung 
der ’Pbox’en der Screen-Teil, in dem sie erscheinen, zwischen¬ 
gespeichert und hinterher wieder restauriert. 

Mit dem nun ermittelten Handle, das Ihnen in der Variablen 
'H%’ zurückgegeben wird, können Sie nun die VDI-Routinen 
ausführen lassen. 
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GETHANDLE 


Procedure Gethandle(HX) 

Local BuffS 

Get 0,0,20,1,A$ ! 

Graphmode 1 
Local IX,Bufft 

BuffS=Mkl$(0)+Mkl$(1)+Mkl$(0) ! 
Bmove Varptr(Buff$),Contrl,12 ! 
Dpoke Intin,1 ! 

For IX=0 To 16 ! 

Dpoke Contrl+12,1% ! 

Vdisys 104 ! 

Next IX 
Dpoke lntin,0 
Deffill 1,0,0 
For IX=0 To 16 
Dpoke Contrl+12,lX 
Vdisys 104 
Pbox IX,0,IX,0 
Exit If PointeIX,0)=0 
Next IX 
Put 0,0,A$ 

Dpoke Contrl+12,IX 
Dpoke Int in,1 
Vdisys 104 
*HX=IX 
Return 


Screenteil zwischenspeiehern 

Contrl-Feld bilden 
Contrl-Feld eintragen 
Rahmen an 
erstmal Rahmen für 
alle Handles 
anschalten. 

Rahmen aus 
weiße Pbox 
Pbox/Point-Schleife 
Handle eintragen 
Rahmen ausschalten 
! Pbox zeichnen 

! Abbruch, wenn Rahmen nicht gesetzt 

! Screenteil restaurieren 
! richtiges Handle übergeben 
I Rahmen an 
I Funktion ausführen 
! Handle zurückgeben 


VDISYS 104 Perimeter Visibility 

Diese ist die Routine, mit welcher die Umrandungen bei Pbox, 
Prbox, Polyfill, Pcirle und Pellipse ausgeschaltet werden können. 

Sie erwartet als Parameter das so wichtige Handle und ein Flag, 
das angibt, ob die Umrandung aus- oder eingeschaltet werden 
soll. 


Procedure Visibel(HandleX,Flag%) 

Local BuffS 

Buff$=Mkl$(0)+Mkl$(1)+Mkl$(0)+MkiS(HandleX) 
Bmove Varptr(Buff$),Contrl,14 





TOS-Allerlei 


157 


Dpoke Intin.FlagX 
Vdisys 104 
Return 

VDISYS 114 Fill Rectangle 

Manchmal ist es direkt ärgerlich, daß man in GFA-BASIC keine 
Möglichkeit hat, eine einfache Pbox ohne den manchmal lästigen 
Rahmen zeichnen zu können. Gerade für viele Arten der grafi¬ 
schen Aufbereitung von statistischen Daten (Diagramme) wäre 
dies von Wert. 

Während Sie mit ’VDISYS 104’ die Umrahmung aller ’P’-Objekte 
ausschalten, können Sie hiermit allein eine ’Pbox’ ohne Umrah¬ 
mung zeichnen. 

Als Parameter werden wieder das Handle sowie die vier Koordi¬ 
natenangaben der Box benötigt. Beispiel: 

Deffill ,2,2 
3Gethandle(*BbX) 

For IX=1 To 300 Step 2 
aLbox(Bb%, IX,IX,IX+30,IX+30) 

Next IX 

Procedure Lbox(HandleX,XlX,YlX.XrX,YrX) 

Local Bufft 

Buff$=Mkl$(2)+Mklt(0)+Mkl$(0)+Mki$(HandleX) 

Bmove Varptr(Buff$),Contrl,14 

Buff$=Mki$(XlX)+Mki$(YlX)+Mki$(XrX)+Mki$(YrX) 

Bmove Varptr(Bufft),Ptsin,8 
Vdisys 114 
Return 

VDISYS 129 Clipping Rectangle 

Sie können mit dieser Routine einen bestimmten Bereich be¬ 
stimmen, über den hinaus alle Grafikausgaben abgeschnitten 
werden. Sie benötigt dazu 6 Parameter: 
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1. das Handle 

2. Modus ( 0=Clipping aus / l=Clipping aktiv) 

3.-6. XI / Y1 / X2 / Y2 

Bei den folgenden beiden VDI-Funktionen, die Box-Koordina¬ 
ten erwarten, sind mit den ersten beiden Punkt-Parametern die 
linke obere Ecke und mit den nächsten beiden Punkt-Parame¬ 
tern die rechte untere Ecke dieser Box gemeint. Beispiel: 

3Gethandle(*BbX) 
actipp(Bb%, 1,240,150,400,250) 

Circle 320,200,85 

3CIipptBbX,0,240,150,400,250) 

Circle 320,200,90 

Procedure CIipp(HandleX,FlagX.XlX,YlX.XrX,YrX) 

Local Buff$ 

Buff$=Mkl$(4)+Mkl$(1)+Mkl$(0)+Mk\$(HandleX) 

Bmove Varptr(Buff$),Contrl,14 

Buff$=Mki$(XlX)+Mki$(YlX)+Mki$(XrX)+Mki$(YrX) 

Bmove Varptr(Buff$),Ptsin,8 
Dpoke Intin.FlagX 
Vdisys 129 
Return 

Wie Ihnen vielleicht aufgefallen ist, übergebe ich das Control- 
Feld mit einem Bmove-Befehl. Das ist möglich, da die einzelnen 
Contrl-Elemente jeweils in Word-Abständen direkt hintereinan¬ 
der im Speicher liegen. Ich verpacke die einzelnen Contrl-Werte 
zu je zwei Werten mit ’MklS’ in einem String und setze diesen 
String ganz einfach in das Contrl-Feld ein. Das hat eigentlich 
nur den Zweck, überflüssige Contrl-Pokes und damit Pro¬ 
grammspeicher zu sparen. 

Es folgen nun 4 Prozeduren, die die oben schon erwähnte Auf¬ 
gabe haben. Ihnen Auskunft darüber zu geben, welche Gra¬ 
fikeinstellungen zur Zeit aktuell sind. 

Die Bedienung dieser Prozeduren ist denkbar einfach. Bei 
Prozedur-Aufruf wird als erster Parameter das bereits genannte 
Handle übergeben, für das die Einstellungen erforscht werden 
sollen. Die folgenden Variablennamen, deren Anzahl von der 
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Prozedur abhängig ist, sind als Pointer zu übergeben. In diesen 
Variablen finden Sie nach Abschluß der Prozedur die Ein¬ 
stellungen. 

Als da wären (jeweils der Reihe nach) : 

Aus ’Procedure Getfill’: 

1. Füllfarbe 

2. Fülltyp 

3. Füllmuster 

4. Grafikmodus 

5. ’P’-Objektumrahmung (an/aus) 

Aus ’Procedure Getmark’: 

1. Markerfarbe 

2. Markertyp 

3. Markergröße 

4. Grafikmodus 

Aus ’Procedure Getline’: 

1. Linienfarbe 

2. Linientyp 

3. Liniendicke 

4. Grafikmodus 

Aus ’Procedure Gettext’: 

1. Textfarbe 

2. Textwinkel 

3. Zeichenbreite 

4. Zeichenhöhe 

5. Breite der umfassenden Zeichenbox 

6. Höhe der umfassenden Zeichenbox 

7. Grafikmodus 


Im Anschluß an die Routinen finden Sie ein Beispiel, daß die 
Übergabe und Auswertung demonstriert. 
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VDISYS 35 CURRENT POLYLINE ATTRIBUTS 


Procedure Getline(Handle*,L1X,L2X,L3X,L4X) 
Local BuffS 

Buff$=MklS(0)+Mkl$(0)+Mkl$(0)+Mki$(Handle*) 
Bmove Varptr(Buff$).Contrl,14 
Vdisys 35 

*L 2X=0 peek(I nt out) I LINIENTYP 

*L1X=Dpeek(Intout+2) I LINIENFARBE 
*L4X=Dpeek(Intout+4) IGRAFIKMOOUS 
*L3X=Dpeek(Ptsout) I LINIENDICKE 
Return 


VDISYS 36 CURRENT POLYMARKER ATTRIBUTS 


Procedure Getmark(HandleX,M1X,M2X,H3X,M4X) 
Local BuffS 

BuffS=Mkl$(0)+MklS(0)+MklS(0)+MkiS(Handle*) 
Bmove Varptr(BuffS),Contrl,14 
Vdisys 36 

*M1X=Dpeek(Intout)+1 IMARKERFARBE 
*M2X=0peek(Intout+2) 'MARKERTYP 
*M4X=Dpeek(lntout+4) IGRAFIKMOOUS 
*M3X=Dpeek(Ptsout+2) !HARKERGRÖßE 
Return 


VDISYS 37 CURRENT FILL AREA ATTRIBUTS 

Procedure Getf i l UHandleX, FIX, F2X, F3X, F4X, F5X) 

Local BuffS 

BuffS=MklS(0)+HklS(0)+MklS(0)+HkiS(HandleX) 

Bmove Varptr(Buff$),Contrl,14 
Vdisys 37 

*F2X=Dpeek(Intout) !FÜLLTTP 
*F1X=Dpeek(Intout+2) !FÜLLFARBE 
*F3X=Dpeek(Intout+4) !FÜLLMUSTER 
*F4X=Dpeek(Intout+6) IGRAFIKMOOUS 
*F5X=Dpeek(Intout+8) !PBOX-UMRAHMUNG 
Return 
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VDISYS 38 CURRENT GRAPHIC TEXT ATTRIBUTS 

Procedure Gettext(HandleX,T1X,T2X,T3X,T4X,T5X,T6X,T7X) 

Local BuffS 

BuffS=MklS<0)+Mkl$(0)+MklS(0)+MkiS(HandleX) 

Bmove Varptr(Buff$),Contrl,14 
Vdisys 38 

*T1X=Dpeek(Intout+2) !TEXTFARBE 

*T2X=Dpeek(Intout+4) !ROTATIONSWINKEL 

*T7X=Dpeek(lntout+10)+1 IGRAFIKMOOUS 

*T3X=Dpeek(Ptsout) !ZEICHENBREITE 

*T4X=Dpeek(Ptsout+2) !ZEICHENHÖHE 

*T5X=Dpeek(Ptsout+4) !ZEICHENBOXBREITE 

*T6X=Dpeek(Ptsout+6) !ZEICHENBOXHÖHE 

Return 


Beispiel: 

3Gethandle(*BbX) 

Graphmode 2 
Deffill ,2,4 
Defmark 1,5,55 
Deftext 0,16,900,12 
Setcolor 0,1 
Color 1 

Defline 6,1,1,1 
avisibel(BbX.O) 

Pbox 10,100,400,300 

3Getfi l KBbX,*FfX,*FtX,*FmX,*GmX,*VsX) 

Print ,l Füllfarbe: ,, ;FfX;" FüUtyp: ,, ;FtX;" Fül lmuster:";FniX 
Print "Graf ikmodus: ,, ;GmX;" Pbox-Umrahmung:";VsX 
avisibel(BbX.I) 

Box 200,200,600,380 

3Getmark(BbX,*MfX,*MtX,*MhX,*Gm%) 

Dirn XX(1),YX(1) 

XX(0)=480 

YX(0)=40 

Polymark I.XXO.YXO 

Print "Markerfarbe:";MfX;" Markertyp:";MtX 
Print "Markerhöhe: ,, ;MhX;" Grafikmodus: 11 ;GmX 
aGettext(BbX,*TfX,*TrX,*ZbX,*ZhX,*ZbbX,*ZbhX,*GmX) 

Print "Textfarbe:";TfX;" Textwinkel:“;TrX;" Zeichenbreite:";ZbX 
Print "Zeichenhöhe:";ZhX;" Zeichenboxbreite:";ZbbX 
Print l, Zeichenboxhöhe: ,l ;ZbhX,• ,, Grafikmodus:";GmX 
aGetcol(BbX,0,*CrX,*CgX,*CbX) 
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Print "Farbregister 0:";" Rot=";Cr%;" Grün=";Cg%;" Blau=";Cb% 

SGetline(Bb%,*Lf%,*Lt%,*Ld%,*Gm%) 

Print "Linienfarbe:";Lf%;" Linientyp:";Lt%;" Liniendicke:";Ld% 

Print "Grafikmodus:";GmX 
Text 340,300,'" INQUIRE'" 

Text 360,300,"(Nachfrage" 

Text 380,300,"Funktionen)" 

Edit 

Das folgende Beispielprogramm verwendet mehrere VDI-Routi- 
nen, die jede für sich im GFA-BASIC implementiert sind. Es 
handelt sich hier um Einstellungen der Linienart (’DEFLINE’) 
oder der Textart (’DEFTEXT’). 

Warum ich sie Ihnen trotzdem vorstelle, hat den Grund, daß 
man mit diesen Funktionen auch die Linien- und Textarten des 
Desktop, der Alert- und Fileselect-Boxen, der RSC-Dialog- 
boxen, der Pulldown-Menüs sowie auch teilweise der Fenster 
beeinflussen kann. 

Ich habe diese Einstellungsfunktionen in zwei Prozeduren unter¬ 
gebracht. Sie sind beide von vornherein auf das System-Handle 
1 eingestellt, also für andere Handle in dieser Form nicht ver¬ 
wendbar. Das ist aber auch nicht nötig, da innerhalb des BASIC 
die Grafik-Einstellungen wesentlich einfacher vorgenommen 
werden können. 

Die erste Prozedur ’S_line’ erwartet zwei Parameter. Der erste 
gibt an, welchen Linienstil Sie einstellen möchten. Mit den 
Werten 1-7 werden dieselben Linientypen festgelegt, wie Sie es 
vom BASIC her kennen. Mit dem Wert 0 wird die Linie un¬ 
sichtbar gemacht und Werte, die kleiner als 0 sind, werden als 
16-Bit-Muster für einen selbstdefinierbaren Linienstil ver¬ 
wendet. 

Mit dem zweiten Parameter wird die Liniendicke festgelegt. 
Dabei gelten dieselben Werte wie bei ’DEFLINE’. Soll die 
Liniendicke unverändert bleiben, übergeben Sie einfach eine -1. 
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Der zweiten Prozedur ’Stext’ werden drei Parameter übergeben. 
Damit wird wie bei ’DEFTEXT’ 

1. die Textart 

2. der Textwinkel 

3. die Texthöhe 

angegeben. Soll eine dieser Einstellungen von der Prozedur nicht 

verändert werden, übergeben Sie ebenfalls -1. 


Beispiel: 

3S_line(0,-1) 

Deffill ,2.4 
Pbox 2,2,637,397 
Deffill ,0,0 
Pbox 9,100,420,280 
Deftext ,20,,9 
3S_text(5,-1,6) 

Graphmode 2 

Text 12,120,"Hier wurde einfach der Rahmen" 
Text 12,140,"der Alert-Box" 

Text 12,160,"ausgeschaltet." 

Text 12,180,"Dasselbe läßt" 

Text 12,200,"sich auch auf" 

Text 12,220,"die Fileselect-" 

Text 12,240,"Box anwenden." 

Alert 1."TEST ",1,»OKAY|ABBRUCH",B% 

Graphmode 1 

Deffill ,2,4 

Pbox 2,2,637,397 

Deffill ,0,0 

Pbox 100,10,540,380 

Line 100,40,540,40 

Deftext ,20,,26 

Graphmode 2 

Text 110,36,436,"D atei -Auswahl" 
Fileselect »\*.*",»",S$ 
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VDISYS 15 / VDISYS 16 / VDISYS 113 

Procedure S_line(LsX,LdX) 

Local Bufft 

Bufft*Hklt(0)+Mktt(1)+Mklt(0)+Mkit(1) 

Bmove Varptr(Bufft),Contrl,14 
If LsX<7 

Dpoke Intin,Abs(LsX) 

If LsX<1 
Vdisys 113 
Else 

Vdisys 15 
Endif 
Endi f 

Buff$=Mkl$(1)+Mkl$(0) 

Bmove Varptr(Buff$),Contrl,8 
If LdX=>0 
Dpoke Intin.LdX 
Vdisys 16 
Endi f 
Return 


VDISYS 12 / VDISYS 13 / VDISYS 106 

Procedure S_text(TsX,TwX,ThX) 

Local Bufft 

Buffi=Mkl$(0)+Mklt(1)+Mkl$(0)+Mkit(1) 

Bmove Varptr(Bufft),Contrl,K 
If TsX=>0 
Dpoke Intin.TsX 
Vdisys 106 
Endi f 
If TwX=>0 
Dpoke Intin.TwX 
Vdisys 13 
Endif 
If ThX=>0 
Dpoke Contrl+2,1 
Dpoke Contrl+6,0 
Dpoke Ptsin.O 
Dpoke Ptsin+2,ThX 
Vdisys 12 
Endi f 
Return 
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3.5 GEMSYS-Routinen 

Im Kapitel 4 finden Sie schon eine umfangreiche AES-Biblio- 
thek beschrieben. Diese Routinen beziehen sich fast ausschließ¬ 
lich auf die Objekt-, Menü-, Window- und Formular-Funk¬ 
tionen. 

T)as AES bietet darüber hinaus einige 'witzige’ Funktionen an, 
die einem Programm erst den richtigen Schliff geben. Manche 
mag’s stören, wenn beim Öffnen von Fenster auf dem Desktop 
kleine Rahmen über den Bildschirm huschen: "Überflüssiger 
Firlefanz!". Ich finde solche kleinen Bonbons ganz nett, da man 
um so mehr das Gefühl hat, es nicht mit einem seelenlosen Pla¬ 
stikkasten zu tun zu haben, auch wenn sie die Ablaufgeschwin- 
digkeit etwas einschränken. 

Deshalb hier nun einige solcher Routinen, die die Aufgabe ha¬ 
ben, dem Bild etwas Leben einzuhauchen. 

GEMSYS 70 GRAF RUBBER BOX 

Die erste dieser Prozeduren produziert eine Punktlinien-Box, die 
an einer bestimmten Position mit gedrückter Maustaste initiali¬ 
siert werden kann und deren rechte untere Ecke den Bewegun¬ 
gen des Mauszeigers folgt. So kann der Benutzer dazu gebracht 
werden, einen bestimmten Bildschirmbereich einzugrenzen. 

Als Parameter erwartet die Routine zuerst die X/Y-Koordinaten 
der feststehenden, linken, oberen Boxecke. Die nächsten beiden 
Parameter geben in Pixel die Größe an, die die Box minimal 
einnehmen darf (erst Breite, dann Höhe). 

In den beiden als Pointer gekennzeichneten Parametern erhalten 
Sie nach Loslässen der Maustaste die letzte Breite und Höhe der 
Box. Die Routine wartet hier selbständig auf den initialisieren¬ 
den Mausklick, sie kann also aufgerufen werden, ohne daß die 
Maustaste gedrückt wurde. 
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Beispiel: 

AX=10 

BX=10 

3G_rubber(AX,BX, 10,10,*BrX,*HoX) 

Box AX,BX,AX+BrX,BX+HoX 

Procedure G_rubber(XkoX,YkoX.XminX,YminX,LbX,LhX) 

Repeat 

Until Mousek 
On Menu 
Local Buff$ 

Buff$=MkiS(XkoX)+Mki$(YkoX)+Mki$(XminX)+Mki$(YminX) 

Bmove Varptr(Buff$),Gintin,8 
Gemsys 70 

*LbX=Dpeek(Gintout+2) 

*lhX=Dpeek(Gintout+4) 

Return 

GEMSYS 71 GRAF DRAGBOX 

Diese Routine wartet ebenfalls auf einen Mausklick. Mit diesem 
Klick wird die Startposition eines kleinen Rechtecks bestimmt, 
das sich nur innerhalb eines zweiten, größeren Rechtecks be¬ 
wegen läßt. 

Als Parameter sind zu übergeben: 

1. Breite der kleinen Box 

2. Höhe der kleinen Box 

3. X-Startposition der kleinen Box 

4. Y-Startposition der kleinen Box 

5. X-Koordinate der linken oberen Ecke der Grenzbox 

6. Y-Koordinate der linken oberen Ecke der Grenzbox 

7. Breite der Grenzbox 

8. Höhe der Grenzbox 

Nach Loslassen der Maustaste erhält man in den beiden ’Pointer- 
Variablen’ die letzte X/Y-Koordinate der kleinen Box. 
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Beispiel: 


AX=30 

BX=30 

C%=20 

DX=20 

Box CX,DX,CX+400,DX+150 

j)G_drag( AX,BX,Mousex,Mousey,CX,DX, 400,150, *LxX,*LyX) 

Box LxX,LyX,LxX+AX,LyX+BX 

Procedure G_drag(LtbX,LthX,LtxX,LtyX,BgxX,BgyX,BgbX,BghX,LsxX,LsyX) 
Repeat 

Until Mousek 
On Menu 
Local Buff$ 

BuffJ=MkiS(LtbX)+Mki$(LthX)+Mki$(LtxX)+Mki$(Lty%) 

BuffS=Buff$+MkiS(BgxX)+MkiS(BgyX)+Mki$(BgbX)+Mki$(BghX) 

Bmove Varptr(Buff$),Gintin,16 
Gemsys 71 

*LsxX=Dpeek(Gintout+2) 

*LsyX=Dpeek(Gintout+4) 

Return 


GEMSYS 72 GRAF MOVEBOX 

Soll der Effekt entstehen, daß sich ein Bildschirmobjekt von 
einer Position zu einer anderen bewegt, ist diese Routine dazu 
absolut prädestiniert. Sie übergeben als Parameter einfach die 
Breite und Höhe der Box, sowie die X/Y-Startposition und die 
X/Y-Zielposition (auf die linke obere Ecke bezogen). 

Beispiel: 

For IX=1 To 40 
X2X=Random(639- 20) 

Y2X=Random(399-20) 

aGjnove(20,20,X1X,Y1X,X2X,Y2X) 

X1X=X2X 
Y1X=Y2X 
Next IX 

Procedure G_move(BrX,HoX.XIX,Y1X.X2X,Y2X) 

Local BuffS 
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Buf fJ=Mki$(BrX)+Mki$(HoX)*Mki$(X1X)+Mki$(Y1X)+MkiS(X2X)+-MkiS(Y2X) 
Bmove Varptr(Buff$),Gintin,12 
Gemsys 72 
Return 


GEMSYS 73 GRAF GROWBOX 

GEMSYS 74 GRAF SHRINKBOX 

Diese Springboxen kennt wohl jeder. Sie erzeugen diesen dyna¬ 
mischen Effekt auf dem Desktop, wenn ein Fenster geöffnet 
oder geschlossen wird. Es wird entweder eine sich ausdehnende 
(73) oder zusammenschrumpfende Box (74) gezeichnet. 

Von dieser Prozedur werden eine ganze Menge an Parametern 
benötigt. 

1. Flag, ob die Box sich öffnen (1) oder schliessen soll (0) 
2. u. 3. X/Y-Koordinate der jeweils kleineren Box 

4. u. 5. Breite und Höhe der jeweils kleineren Box 

6. u. 7. X/Y-Koordinate der jeweils größeren Box 

8. u. 9. Breite und Höhe der jeweils größeren Box 

Beispiel: 

For IX=1 To 20 
AX=Random(140) 

BX=Random(100) 

X2X=Random(639) 

Y 2%= R andom(399) 

3G_groshr(1,X1X,Y1X,AX,BX,X2X,Y2X,639-X2%,399-Y2X) 

X1X=X2X 

Y1X=Y2X 

aG_groshr(0,X1X,Y1X,AX,BX,X2X,Y2X,639-X2X,399-Y2X) 

Next IX 

Procedure G_groshr(FlgX,LtxX,LtyX,Ltb%,Lth%,BgxX,BgyX, Bgb%, Bgh%) 

Local Buff$ 

Buff$=Mki$(Ltx%)+Mki$(LtyX)+MkiS(Ltb%)+Mki$(LthX) 

Buff$=Buff$+Hki$(BgxX)+Mki$(BgyX)+Mki$(Bgb%)+Mki$(Bgh%) 

Bmove Varptr(Buff$),Gintin,16 
If FlgX=1 
Gemsys 73 
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Else 

Gemsys 74 
Endi f 
Return 

GEMSYS 52 FORM ALERT 

'Der ’ALERT’-Befehl des BASIC bietet diese GEMSYS-Routine 
an. Jedoch leider etwas eingeschränkt. Die BASIC-Alertbox kann 
maximal 4 Zeilen zu je 30 Zeichen und maximal 8 Zeichen je 
Klick-Button darstellen. 

Die Original-Form-Alert-Box bietet dagegen 5 Zeilen zu je ma¬ 
ximal 30 Zeichen und maximal 10 Zeichen je Button. 

Dafür hat sie einen wesentlichen Nachteil! Sie stürzt einfach ab, 
wenn man in einer Zeile oder einem Button zuviele Zeichen 
eingibt. Und zwar so radikal, daß nur noch der Reset-Knopf 
aus der mißlichen Lage befreit. 

In den allermeisten Fällen wird sich dieser Fehler jedoch ver¬ 
meiden lassen. Die Syntax des Aufrufs ist genauso gehalten, wie 
Sie es vom ’ALERT’-Befehl her gewohnt sind. 

Beispiel: 

Al$=String$(30,"1")+"|"+String$(30,"2")+"|"+String$(30,"3") 
Al$=Al$+"|"+String$(30 f "4»)+"|5 Zeilen zu je 30 Zeichen" 
3F_alert(1,Al$,2," und je 10|Zeichen|Buttontext",*Button%) 

Print Button% 

Procedure F_alert(Symbol%,AlbxtxtS,Knopf%,Albttxt$,Sl%) 

Local Al$ 

Al$= ,, ["+Str$(SymbolX)+"] ["+Albxtxt$+"] ["+Albttxt*+"]"+Chr$(0) 

Lpoke Addrin,Varptr(Al$) 

Dpoke Gint in,Knopf% 

Gemsys 52 

*Sl%=Dpeek(Gintout) 

Return 
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4. Objekte, Formulare und Resources 


Leider ist bisher unter GFA-BASIC die GEM-Oberfläche nur 
bedingt ansprechbar. Befehle und Funktionen, die die Resource- 
Library, die Formularroutinen, die Object-Ansprachen usw. 
betreffen, fehlen oder sind nur unzureichend implementiert. Das 
soll jetzt anders werden. 

Auch wenn es vielleicht zuerst verwirren wird, um etwas tiefere 
Einblicke in die Objektstrukturen kommt man nicht herum. 
Hierarchische Bäume, Speicherfelder, Word- und Longword- 
pointer werden Ihnen aber nach Lektüre dieses Kapitels leicht 
von den Lippen fließen. 

4.1 Objektgenerierung in GFA-BASIC 

Im Desktop tauchen nach Anklicken einiger Menüpunkte die 
berühmten kleinen Bildchen auf, die Sie über Betriebszustände 
unterrichten, vor etwas warnen oder Eingaben verlangen. Alle 
diese Bildchen sind GEM-Objektbäume, die wiederum aus 
GEM-Objekten bestehen. In GFA-BASIC kennen Sie die Alert- 
Box, die auch nichts anderes ist als ein Objektbaum, bestehend 
aus den Unter-Objects <ICON>, ein, zwei oder drei <STRINGs> 
und ein bis drei <BUTTONs>. 

Damit GEM diese Objekte entsprechend verwalten kann, müssen 
sie nach ganz bestimmten Regeln aufgebaut werden. 

Regel 1 Alle Objekte werden in regelmäßigen Strukturen, Fel¬ 
dern, speicherintern abgelegt. Eine Objektstruktur ist 
genau 10 Words und ein Longword, also (10*2)+(1*4) 
= 24 Bytes, groß. Im Speicher liegen die Objekte der 
Reihe nach hintereinander. 

Regel 2 Die Objekte bauen in Form eines Objektbaums hier¬ 
archisch aufeinander auf. Dazu hat jede Objektstruk¬ 
tur in den ersten drei Words bestimmte Zeiger, von 
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denen der erste auf das nächste Objekt derselben 
Hierarchie zeigt und die anderen zwei auf das erste 
und letzte der nächsten Generation. 

Regel 3 Neben der Objektstruktur sind verschiedene andere 
Strukturen vorhanden, die nach demselben Muster 
aufgebaut sind und Spezialinformationen über das 
entsprechende Objekt beinhalten. Das Longword der 
Objektstruktur trägt die Anfangsadresse der jeweiligen 
Sonderstruktur. 



Abb. 9: Objekttypen in der Alertbox 


Damit das nicht so trocken stehen bleibt, wird im ersten Listing 
ein Objekt, bestehend aus der Wurzel und drei Unterobjekten, 
direkt unter GFA-BASIC aufgebaut. Das ist übrigens ein Ver¬ 
fahren, das seine Berechtigung hat, auch wenn im weiteren viel 
vom Resource Construction Set die Rede sein wird. Denn ein 
ausgelagertes Resources-File nimmt, unabhängig von seiner 
Größe, über 30 KByte weg. Schauen Sie nur einmal, wie wenig 
im Vergleich dazu unser folgendes Progrämmchen braucht. 
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1.Generation. Index 2 
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stinnt 


Abb. 10: Objektbaum mit seinen Zeigern 
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Object$=Space$(100*24) 

T edinfo$=Space$(100*28) 

I 

Object_adresse%=Varptr(ObjectS) 
Tedinfo%=Varptr(Tedinfo$) 


Zuallererst werden Speicherplätze für die Objektstrukturen re¬ 
serviert: 24 Bytes * Objektanzahl für die Objekte. Der Anfang 
dieser Speicherplätze wird durch <Varptr> erfragt. Für die Son¬ 
derstruktur TEDINFO, in die bei Objekten, die Text beinhalten, 
wichtige Informationen abgelegt werden müssen, geschieht genau 
dasselbe, nur daß diese Struktur jeweils 28 Byte lang sein muß. 


4.1.1 Die OBJECT-Struktur 


1 Aufbau und Inhalt der einzelnen Strukturen 
1 erstes Objekt: 

Dpoke Object_adresse%,•1 
Dpoke Object_adresse%+2,1 
Dpoke ObjectadresseX+4,3 
Dpoke 0bject_adresse%+6,20 
Dpoke ObjectadresseX+8,0 
Dpoke Object_adresseX+10,0 
Gosub Def_obspec(0,2,1,1,1,1) 

Lpoke 0bject_adresseX+12,0b spec 
Dpoke ObjectadresseX+16,0 
Dpoke ObjectadresseX+18,0 
Dpoke ObjectadresseX+20,250 
Dpoke ObjectadresseX+22,200 


In die Objektspeicherplätze werden also die entsprechenden 
Objektdaten hineingepoked. Dabei muß folgende Reihenfolge 
gelten: 


l.Word (Ob_head) 

Die Objektnummer des nächsten Objekts derselben Hierarchie. 
Wichtig: Die Nummern oder Indizes beginnen bei 0. Es gelten 
zwei Sonderfälle: Das Wurzelobjekt hat eine -1 (zeigt also auf 
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die Applikation zurück), alle anderen Objekte erhalten für den 
Fall, daß kein "Bruder" oder keine "Schwester" vorhanden ist, 
hier die Nummer des jeweiligen "Vaters", zeigen also auf die 
Vorgängerhierarchie zurück (siehe Abb. 2). 


2. Word (Ob_nexl) 

Die Nummer des ersten Kindes. Falls keins vorhanden ist, wird 
-1 eingetragen (unser erstes Kind hat also die Nummer I). 


3. Word (Ob_tail) 

Die Nummer des letzten Kindes. Falls nur eins da ist, sind Word 
2 und Word 3 identisch, falls kein Kind vorhanden ist, kommt 
auch hier eine -1 hinein (unser letztes Kind hat den Index 3). 


4. Word (Ob_typ) 

Objekttypschlüssel. GEM hat Zahlen von 20 bis 32 für 12 ver¬ 
schiedene Arten von vordefinierten Objekten reserviert. Dabei 
handelt es sich um einfache Rechtecke, editierbare Texte, um 
nicht editierbare Texte, um ICONs oder IMAGES usw. 


20 GBOX 

21 G _TEXT 

22 G BOXTEXT 

23 GJMAGE 

24 G PROGDEF 

25 Gl BOX 

26 GJBUTTON 

27 G BOXCHAR 

28 G_STRING 

29 G FTEXT 


eine Pbox mit verschiedenen Rand- und 
Mustervarianten 

ein Grafiktext mit TEDINFO-Struktur 

Grafiktext in einer PBox 

Bitmustergrafik mit B1TBI.K-Struktur 

selbsterzeugte Objektprozedur 

eine Box, also ohne Muster 

Pbox mit normalem Text 

Pbox mit einem einzigen Buchstaben 

normaler Text 

formatierbarer Grafiktext 
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30 GFBOXTEXT Pbox mit formatierbarem Grafiktext 

31 G ICON Icon mit Maske, Text und ICONBLK- 

Struktur 

32 G TITLE Grafiktext für Menüeinträge 

5. Word (Ob_flags) 

Schlüssel für Objekteigenschaften. Jedes dieser Objekte kann 
verschiedene Flags setzen, in denen bestimmt wird, ob das Ob¬ 
jekt anwählbar und invertierbar oder editierbar oder mit einer 
Ausstiegsbedingung usw. versehen wird. Wir haben mit der 0 
kein Flag gesetzt, das Objekt hat also keinerlei besondere Spezi¬ 
fikation. 

0 NORMAL keine Eigenschaft 

1 SELECTABLE auswählbar, invertierbar 

2 DEFAULT automatische Selektierung durch Drücken 

der RETURN-Taste 

4 EX1T beim Auswählen wird der Dialog automa¬ 

tisch beendet 

8 EDIT ABLE der zugehörige Text kann bearbeitet 

werden 

16 RBUTTON mehrere Objekte im selben Baum lösen 

sich gegenseitig aus. Es kann also immer 
nur einer dieser Radio-Buttons selektiert 
sein. 

32 LASTOB das letzte Objekt innerhalb des Baumes 

muß diesen Flag zeigen 

64 TOUCHEXIT wie Exit, Ausstieg aber schon beim 

Drücken und nicht erst beim Loslassen 
der Maustatste 


128 HIDETREE 


alle Kinder und Kindeskinder dieses Ob¬ 
jekts werden von den Bearbeitungsrouti¬ 
nen ausgelassen 
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6. Word (Ob_state) 

Flag für den Objektzustand beim Zeichnen. Hiermit kann be¬ 
stimmt werden, ob das Objekt invertiert, umrandet, schattiert, 
heller und damit nicht ansprechbar usw. auftauchen soll. Dieses 
Flag wird besonders häufig manipuliert werden. 


- 0 

NORMAL 

Normaldarstellung 

1 

SELECTED 

invertierte Darstellung 

2 

CROSSED 

das Objekt wird mit einem Kreuz ausge¬ 
strichen 

4 

CHECKED 

das Objekt wird mit einem Häkchen ver¬ 
sehen 

8 

DIS ABLED 

das Objekt wird heller dargestellt 

16 

OUT LIN ED 

das Objekt bekommt einen zusätzlichen 
Rahmen 

32 

SHADOWED 

das Objekt bekommt einen Schatten 

7. Langword (also 

4 Byte) (Ob_spec) 


Informationen, die vom Objekttyp abhängig sind. Bei Boxen, 
Strings usw., all denjenigen Objekten, für die keine weitere In¬ 
formationsstruktur vorhanden ist, werden hier Daten über 
Randbreite, Muster des Hintergrundes usw. bzw. der String sel¬ 
ber abgelegt. Ansonsten steht hier die Anfangsadresse des 
Strukturfeldes, in dem die Folgeinformationen festgehalten wer¬ 
den. Näheres siehe weiter unten. 


8. und 9. Word (Ob_x und Ob_y) 

X% und Y%-Koordinaten des Objekts, relativ zum Wurzel¬ 
objekt. Das erste Objekt, also die Baumwurzel, bekommt hier 
zwei Nullen. 


10. und 11. Word (Ob_w und Ob_h) 

Breite und Höhe des Objekts in Pixeln. 

Die drei anderen Objekte werden jetzt nach demselben Strick¬ 
muster wie das erste aufgebaut. 
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1 Zweites Objekt: 

Add ObjectadresseX,24 
Dpoke 0bject_adresse%,2 
Dpoke 0bject_adresse%+2,-1 
Dpoke 0bject_adresseX+4,-1 
Dpoke ObjectadresseX+6,20 
Dpoke 0bject_adresse%+8,0 
Dpoke Object_adresseX+10,&H4+&H20 
Gosub DefobspecCO,1,1,1,4,1) 
Lpoke 0bject_adresseX+12,0b_spec 
Dpoke 0bject_adresse%+16,20 
Dpoke ObjectadresseX+18,40 
Dpoke Object_adresse%+20,80 
Dpoke Object_adresse%+22,80 



Abb. 11: OBJECT Struktur 


1 Drittes Objekt: 

Add Object_adresseX,24 
Dpoke 0bject_adresseX,3 
Dpoke 0bject_adresseX+2,-1 
Dpoke 0bject_adresseX+4,•1 
Dpoke 0bject_adresseX+6,28 
Dpoke Object_adresseX+8,&H20 
Dpoke Object_adresseX+10,0 
T$="Dies ist ein Test"+Chr$(0) 
Ob_spec=Varptr(T$) 

Lpoke 0bject_adresseX+12,0b_spec 
Dpoke ObjectadresseX+16,60 
Dpoke Object adresseX+18,10 
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Dpoke ObjectadresseX+20,17*8 
Dpoke Object_adresseX+22,16 

I 

1 Viertes Objekt: 

Add 0bject_adresseX,24 
Dpoke ObjectadresseX.O 
Dpoke 0bject_adresseX+2, -1 
. Dpoke 0bject_adresseX+4,-1 

Dpoke ObjectadresseX+6,21 
Dpoke Object_adresseX+8,&H20 
Dpoke Object_adresseX+10,&H8 
Lpoke 0bject_adresseX+12,TedinfoX 
Dpoke ObjectadresseX+16,25 
Dpoke 0bject_adresseX+18,150 
Dpoke Object_adresseX+20,5*8 
Dpoke Object_adresseX+22,16 

An den Hierarchie-Indices sehen Sie, daß alle Objekte Kinder 
der ersten sind und selber keine Kinder haben (im 2. und 3. 
Word steht jeweil eine -1). Das vierte Objekt ist das letzte und 
weist im ersten Word auf das erste, also seine Wurzel, zurück. 
Das zweite Objekt ist ebenfalls eine BOX (20), das dritte ein 
STRING (28) und das vierte ein TEXT (21). 


4.1.2 Ob spec-Varianten 

Die Objektspezifikation (also der Inhalt des Longwords) ist 
schon etwas komplizierter. Beginnen wir mit dem einfachsten: 
Das STRING-Objekt (unser drittes) bekommt hier den Spei¬ 
cheranfang des Strings, der erscheinen soll, über <Varptr 
(String$)> mitgeteilt. GEM hat eine generelle Konvention: Alle 
Strings, die übergeben werden, müssen mit einem Nullbyte en¬ 
den. Deshalb hier ...+chr$(0). 
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Abb 12: Der selbsteneugte Objektbaum 


Der BOX und der IBOX werden in Ob spec Informationen über 
ein eventuell vorhandenes ASCII-Zeichen, die Randfarbe und 
-breite, die Textfarbe, das Muster und den Zeichenmodus über¬ 
geben. Dabei sind die 32 Bit des Longwords wie folgt belegt: 

Setzen und Verändern der Objektspezifikationen 


+.+ 

| | High_word | lowword | 

j Ob = 00000000 00000011 0001 0001 1 000 0000 j 

| Zeichen| Rand- |Rand-|Text-|M|Mus-|Muster-| 
| | | breite |farbelfarbe| |ter |farbe | 

+.+ 


In der folgenden Prozedur werden die gewünschten Parameter 
übergeben, und das Longword wird entsprechend aufgebaut. Das 
hier benutzte Verfahren splittet die Quelle in Low Word und 
High-Word und diese wieder in Low-Byte und High-Byte auf. 
Im High-Word, also den ersten 16 Bit des Longwords, werden 
im High_Byte das ASCII-Zeichen und im Low-Byte die Rand¬ 
breite übergeben. Zusammengeführt werden diese wie bekannt 
über (High-Byte*256)+Low byte. Das Low-Word wird im 
High-Byte noch einmal unterteilt. Die Zusammenführung ge¬ 
schieht mit (High-Halbbyte* 16)+Low Halbbyte. Ebenso beim 
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Low-Byte des Low-Word. Hier bedienen wir uns zusätzlich noch 
eines Tricks. Das den Zeichenmodus angebende Bit wird in die 
Musterbits integriert, so daß Muster von 0 bis 7 transparent als 
und Muster von 8 Jois 15 als überschreibend gelten. Jetzt werden 
nur noch die beiden Words zusammengeführt: (High- 
Word*65536)+ Low-Word. Und das Ergebnis kann an das 
,ob_spec der Objektstruktur übergeben werden. 


Procedure Def_obspec(Char%,Rand%,Randfarbe%,Textfarbe%, 

Muster%,Musterfarbe%) 

Char%: 0 bzw. ASCII-Wert 

Rand%: 0-127 nach innen,128-255 nach außen dicker werdend 

Randfarbe%: 1 oder 0 

Textfarbe%: 1 oder 0 

Muster%: 0-7 transparent, 8-15 replace 

Musterfarbe%: 1 oder 0 

Ob_spec=((Char%*256+Rand%)*65536)+ 

((Randfarbe%*16+Textfarbe%)*256+ 

(Muster%*16+Musterfarbe%)) 

Return 


(Die Zeilen sind aus drucktechnischen Gründen geteilt) 

Diese Prozedur gehört natürlich weiter nach hinten ins Pro¬ 
gramm. Hier geht es jetzt nämlich weiter mit den Sonderstruk¬ 
turen, deren Adressen an ob_spec übergeben werden können. 


4.1.3 Die TEDINFO-Struktur 

Insgesamt gibt es davon vier: eine für editierbare Texte, die 
TEDINFO-Struktur, eine für Icons, die ICONBLK-Struktur, 
eine für Bilder, die als Objekte bedienbar sein sollen, die 
BITBLK-Struktur und eine, die in benutzereigene Routinen 
verspringt, wenn ein Objekt angeklickt wird, die APPLBLK- 
Struktur. In diesem Kapitel wird TEDINFO vorgestellt. 

Rs_string1$="TEXT"+Chr$(0) 

Rs_string2$=""+Chr$(0) 

Rs_string3$=""+Chr$(0) 
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Auch hier wird für den Text, der auf dem Bildschirm erschei¬ 
nen soll, Speicherplatz geschaffen. TEDINFO will aber drei 
Strings übergeben bekommen, damit später das Editieren des 
Textes innerhalb gewisser Konventionen erfolgen kann. Einen 
(den ersten) für die Textmaske. Das ist der Text, der bei 
Editionen stehen bleibt, z.B. bei einem Adressenformular: 
Name:_. 

Der zweite String gibt Eingabegültigkeiten an, Sie können z.B. 
bestimmen, ob nur Zahlen, nur Großbuchstaben usw. eingegeben 
werden dürfen:- XXXXXXX 

Dabei stehen: 

X alle Zeichen gelten 

9 nur Zahlen gelten 

P alle Zeichen, die auch in Datei- und Pfadnamen gelten 
A nur Großbuchstaben 

a nur Kleinbuchstaben 

N Großbuchstaben und Zahlen 

n Großbuchstaben, Kleinbuchstaben und Zahlen 

In den dritten String werden beim Editieren die Eingaben ein¬ 
geschrieben, Sie können diesen leerlassen. Sie können aber auch 
eine Vorgabemaske wählen. Auch hier die Konvention des 
Nullbytes am Ende des Strings:-- 


Lpoke TedinfoX,Varptr(Rs_string1$) 
Lpoke Tedinfo%+4,Varptr(Rs string2$) 
Lpoke Tedinfo%+8,Varptr(Rs string3$) 
Dpoke TedinfoX+12,3 
Dpoke TedinfoX+14,6 
Dpoke TedinfoX+16,0 
Dpoke Tedinfo%+18,&H1180 
Dpoke TedinfoX+20,0 
Dpoke TedinfoX+22,-1 
Dpoke TedinfoX+24,5 
Dpoke TedinfoX+26,1 
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Dieses Speicherfeld wird im Prinzip genauso behandelt wie die 
Objektstruktur. Mehrere TEDINFOs brauchen also hintereinan¬ 
der liegenden Platz. Einträge hier ebenfalls durch Lpoke- und 
Dpoke-Befehle. 


1. Longword (Te_ptext) 

Die Anfangsadresse des Textes 

2. Longword (Te_ptmplt) 

Die Anfangsadresse der Textmaske 

3. Longword (Te_pvalid) 

Die Anfangsadresse der Gültigkeitsangaben 

4. Word (Te_font) 

Der Zeichensatz, mit dem geschrieben werden soll. Es stehen 
derzeit nur zwei Indizes zur Verfügung: 3 für Normalgroße und 
6 für kleine Schrift. 


5. Word ( Te_junkl) 

Ist reserviert, muß immer eine -1 enthalten. 

6. Word (Te_just) 

Justage des Textes, also ob linksbündig (I), zentriert(2) oder 
rechtsbündig^). 

7. Word (Te_color) 

Farbinformationen, entsprechend dem Low-Longword des 
ob_spec, das oben erläutert wurde. Für Text und Schwarz- 
Weiß-Monitor ist &H1180 angemessen. 
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8. Word (Te_junk2) 

Ebenfalls reserviert, hier hat eine -1 zu stehen 

9. Word (Te_thickness) 

Dicke des Randes bei BOXTEXT. Als Zahl zwischen - 127 und 
+ 127. 

10. Word (Te_txtlen) 

Länge des Textstrings( des ersten) in Buchstaben, incl. des 
O-Bytes. 

11. Word (Te_lmplen) 

Länge des Maskenstrings in Buchstaben (ebenfalls incl. des 
O-Bytes) 



Abb. 13: TEDINFO-Struktur 


So. Damit haben Sie einen kompletten Objektbaum eingegeben 
und können GEM befehlen, diesen auf den Bildschirm zu malen. 
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4.2 Objekte zeichnen sich selbst 

In der überaus ausführlichen Routinenbibliothek von GEM ste¬ 
hen natürlich fertige Pakete zum Zeichnen von Objekten und 
Objektbäumen zur Verfügung. Mit <Objc-draw> wird all das, 
was Sie eben entworfen haben, auf einen Schlag auf den Bild¬ 
schirm geschrieben. Ja, es geht noch komfortabler: Damit Sie 
nicht erst ausrechnen müssen, welche Koordinaten Ihr Objekt¬ 
baum benötigt, um mittig auf dem Bildschrim zu erscheinen, 
benutzen Sie die Routine <Form-Center>, die Ihnen genau das 
abnimmt. 

Springen Sie jetzt die folgende Prozedur an, die beide Routinen 
beinhaltet. Als Parameter will die Adresse des Baumes übergeben 
werden sowie das erste zu zeichnende Objekt (hier die Wurzel) 
und die letzte zu zeichnende Ebene (hier haben wir nur zwei, 
nämlich die Wurzel und die restlichen als Kinder ohne Kindes¬ 
kinder). Dieser Wert ist aber unkritisch. 

Gosub Objc_draw(Obj ectadresseX,0,2) 

Do 

Exit If Mousek 
Loop 
End 

Und Sie staunen: Ihr erster Objektbaum aus vier verschiedenen 
GEM-Objekten steht auf dem Bildschirm. 

■ *************************************** 

1 * Library-Routine * 

1 Procedure 0bjc_draw(AdrX,01X,02X) 

Lpoke Addrin.adrX 
Gemsys 54 
Dpoke Gintin.OIX 
Dpoke Gintin+2,02% 

Gemsys 42 
Return 
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Abb. 14: Ihr enter Ojektbaum 


4.3 Resource Construction Set-Spielereien 

Nachdem der Selbstaufbau von Objektstrukturen so schön funk¬ 
tioniert hat, soll natürlich nicht verschwiegen werden, daß das 
manuelle Konstruieren von Objektbäumen eine Heidenarbeit ist. 
Aber es gibt ja das RCS, das Resource Construction Set (z.B. in 
der Data Welt-Edition). Wer es noch nicht hat, sollte es sich 
schleunigst besorgen, denn wir beziehen uns im folgenden dar¬ 
auf. Mit Hilfe des RCS können Sie unter einer grafischen Be¬ 
nutzerführung die Bäume "WYSIWYG", "What You See Is What 
You Get", aufbauen und die RCS-Files, die "Resources", gene¬ 
rieren, die die gesamte AES-Objektstruktur außerhalb des Pro¬ 
gramms lagern. 

Jetzt sollten Sie, um das Folgende nachvollziehen zu können, mit 
Hilfe des RCS zwei Objektbäume einrichten: 
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Baum Nr.l 

Benutzen Sie die DIALOG-Option, und nennen Sie den Baum 

<Treel>. Dahinein kommt ein <EDIT: _>-Objekt, das 

folgendermaßen definiert wird: 

<PTMPLT>Ich bin --> 


<PVAL ID>-99> 

<PTEXT >- > 


Ich bin 37 Jahre alt. | OK | | Cancel I 


Abb. 15: Baum Nr. 1 


Dahinter ordnen Sie einen <STRING> an: "Jahre alt". Zwei 
<BUTTONS>, mit "Cancel" und "OK" beschriftet, beide mit 
<EXIT>, <SELECTABLE> und <RADIO BUTTON>-Flag, ver¬ 
vollständigen diesen Baum. Jetzt benennen Sie den <EDIT>-Text 
mit dem Namen "T1TXT", den "OK"-Button mit "TIOK” und 
den "Cancel"-Button mit "T1CAN". 


Baum Nr. 2 

Dieser Baum besteht aus einem <EDIT>- und vielen 
<BUTTON>-Objekten. Weil Sie ja nur ein einziges Alter haben, 
müssen die Jahreszahlen-Buttons mit dem <RADIO-BUTTON>- 
Flag versehen werden, genauso wie "OK" und "Cancel". Das 
"Radio" bei den Radiobuttons bezieht sich aber immer auf alle 
(!) Objekte innerhalb einer Hierarchie. Deshalb muß also unter 
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eine der beiden Radio-Strukturen eine <HIDDEN>-Box gelegt 
werden. Erst dann arbeiten sie unabhängig voneinander. 

Das Beispiel geht davon aus, daß der FREE- oder DIALOG- 
Baum "Tree2" heißt, die 10 Knöpfe als <BUTTON> dargestellt 
sind, alle <SELECTABLE>, <RADIO BUTTON> und <EXIT> 
angewählt haben und die "OK" und "Cancel"-Knöpfe sowie der 
<EDIT>-Text wie im Treel aufgebaut sind. 

Benennen Sie die Zahlenbuttons mit "T21" bis "T210", den Text 
mit "T2TXT” und die Exit-Knöpfe mit "T20K" bzw. "T2CAN”. 

Jetzt brauchen Sie nur noch im RCS-Menütitel "GLOBAL" unter 
"OUTPUT" die Option "C-SOURCE" anklicken, weil aus diesem 
Source einige Daten benötigt werden, und unter "DEMO.RSC" 
abspeichern. 


Wie alt sind Sie ? 

nnnrimriri Ea 

nrinnnrirsrirssi 

Sie sind 37 Jahre alt. 

I OK I | Cancel I 


Abb. 16: Baum Nr. 2 


Das RCS spuckt vier Files aus: die Resource, die Sie später ins 
Programm einlinken müssen, einen *.DEF-File, der nur vom 
RCS wiederverwendet wird, die C-Source der Objektstruktur 
sowie einen Fleader-File "DEMO.H", der die Objektindizes den 
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von Ihnen eingegebenen Namen zuweist. Dieser File ist natürlich 
auf den C-Compiler zugeschnitten und muß in seiner Syntax 
geändert werden, damit GFA-BASIC ihn versteht. Aus "# 
DEFINE TREE1 0 /*TREE */" usw. muß werden "TREE1%=0 
!*TREE */" usw. 


4.3.1 Header-Files aus dem RCS nach BASIC konvertieren 

Im folgenden finden Sie ein kleines Programm, das Ihnen die 
Arbeit des Umschreibens abnimmt. Wenn Sie auch von BASIC 
reservierte Worte als Variablennamen benutzen wollen, sollten 
Sie die REM-Zeile ohne REM übernehmen. Dann wird als 
zweites Variablennamenzeichen ein Punkt eingefügt. Beispiel: 
Aus GOTO wird G.OTO. 

' Progranm: RCSHEAO.BAS 

I 

I ************************************************** 

1 * Umwandlung des *.H-Files vom RCS in GFA-BASIC * 

i ************************************************** 


Do 

Print At(1,1 );"Bitte den umzuuandeInden *.H -File auswählen 

oder Abbruch anklicken 11 

Fileselect "A: V.H","",File$ 

If FileJo"" 

Gosub Do_it 
Else 
End 
Endif 
Loop 

i 

Procedure Do_it 
Open "I",#1,File$ 

Fi le2$=Lef t$(Fi le$, Instr(Fi le$, ,l ."))♦ ,, lst ,, 

Open »0",#2,File2i 
Repeat 

Input #1,A$ 

A$=Mid$(AS,9) 

A$=Left$(A$, 1 )+"."+Mid$(A$,2) ! Löschen Sie das ", 

1 ! falls Sie reservierte 

1 ! Worte benutzen wollen 

A%=Instr(A$," ") 
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A$=Left$(A$,AX-1)+"X="+Hid$(A$,AX+1) 

AX=lnstr(AS,"/") 

Mid$(A$,A%-1,1)="! " 

Print A$ 

Print #2,A$ 

Inc NX 

Until Lof(#1)-1=Loc(#1) 

Close #1 
Close #2 
Return 

Ja, das war’s schon. Auch kurze Listings bringen den gewollten 
Effekt. Es passiert folgendes: Nachdem der Filename erfragt 
wurde, kann die dazugehörige Datei im Lesemodus geöffnet 
werden, eine zweite Datei mit demselben Namen, aber der 
Endung <*.LST> wird im Schreibmodus geöffnet. In einer 
Schleife mit der ungewohnten Ausstiegsbedingung <Lof(#l)- 
l=Loc(#l), die das Ende des Files anzeigt, wird Zeile für Zeile 
eingelesen, um die ersten 8 Zeichen (#define )gekürzt und nach 
dem Leerzeichen zwischen Konstantenname und Index gesucht. 
Dieses Leerzeichen wird durch "% =" ersetzt. Des weiteren wird 
nach dem Kommentarzeichen von C, dem Backslash "\" gesucht, 
der durch das Kommentarzeichen von BASIC, "!", ersetzt wird. 
Auf den Bildschirm sowie in die Datei schreiben beendet die 
Schleife. Aufräumen (soll heißen Dateien schließen) beendet den 
Durchgang. 

Das Ergebnis des Programmlaufs, den File "DEMO.LST", mergen 
Sie jetzt ins BASIC-Programm. Aus dem C-Source können Sie 
noch folgende Zeilen übernehmen, die das Leben nachher ein¬ 
facher machen: 

# define TIOBJ 0 * T1_beginX=0 

# define T20BJ 5 * T2_beginX=5 

Diese Werte geben jeweils den Anfangsindex der Bäume inner¬ 
halb des RSC-Objekt-Arrays an. Das folgende Beispiel finden 
Sie unter dem Namen "FORMULAR.BAS" auf der Diskette. 
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T1_beginX=0 

Tree1X=0 

!/* 

TREE */ 





T1_txt%=1 

!/* 

OBJECT 

in 

TREE 

#0 

*/ 

T1_ok%=3 

!/* 

OBJECT 

in 

TREE 

#0 

*/ 

T1_canX=4 

!/* 

OBJECT 

in 

TREE 

#0 

*/ 

T2_begin%=5 

Tree2X=1 

!/* 

TREE */ 





T2 txt%=1 

!/* 

OBJECT 

in 

TREE 

#1 

*/ 

T2 b1%=4 

!/* 

OBJECT 

in 

TREE 

#1 

*/ 

T2_b2%=5 

!/* 

OBJECT 

in 

TREE 

#1 

*/ 

T2_b3X=6 

!/* 

OBJECT 

in 

TREE 

#1 

*/ 

T2_b4%=7 

!/* 

OBJECT 

in 

TREE 

#1 

*/ 

T2_b5%=8 

!/* 

OBJECT 

in 

TREE 

#1 

*/ 

T2_b6%=9 

!/* 

OBJECT 

in 

TREE 

#1 

*/ 

T2_b7X=10 

!/* 

OBJECT 

in 

TREE 

#1 

*/ 

T2_b8X=11 

!/* 

OBJECT 

in 

TREE 

#1 

*/ 

T2_b9X=12 

!/* 

OBJECT 

in 

TREE 

#1 

*/ 

T2 b10X=13 

!/* 

OBJECT 

in 

TREE 

#1 

*/ 

T2_ok%=14 

!/* 

OBJECT 

in 

TREE 

#1 

*/ 

T2 canX-15 

! /* 

OBJECT 

in 

TREE 

#1 

*/ 


Wenn die Indizes bei Ihnen etwas anders aussehen, macht’s 
nichts, solange die Struktur stimmt. 

Jetzt sind die Vorbereitungen soweit gediehen, daß das RSC-File 
geladen werden müßte und Sie endlich etwas über Ihr Alter 
erfahren. 


4.4 Resources-Files laden und freigeben 

Es muß jetzt der RSC-File in den Arbeitsspeicher geladen wer¬ 
den. Zuständig dafür ist die AES-Routine <Rsrc load>. In 
BASIC wird sie aufgerufen mit <Gosub Rsrc load("DEMO. 
RSC")>. Diese Prozedur beinhaltet eine kleine Fehlerbehandlung, 
indem eine Alertbox bei Ladehemmungen darauf hinweist, den 
Speicher wieder freigibt und das Programm beendet. 
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1 * Library Routinen * 

I 

Procedure Rsrc_load(RS) 

Lpoke Addrin,Varptr(R$) 

Gemsys 110 
If Dpeek(Gintout)=0 

Alert 3,"Es konnte kein RSC-File|geladen werden",1."Ende",kX 
Gosub R8rc_free 
End 
Endif 
Return 


Ab jetzt ist eine eindringliche Warnung angebracht: RSC-Files 
werden speicherresident gelagert. Das heißt, wenn dieser 
Speicherbereich nicht wieder ordnungsgemäß freigegeben wird, 
knabbert jeder Neustart an der Basepage und irgendwann - mit 
Sicherheit gerade dann, wenn Sie die letzten Änderungen noch 
nicht gesichert haben, werden Sie nur noch einen Systemzusam¬ 
menbruch konstatieren können. 

Also: im Verlauf der Programmierung 

- Ihre Schreibereien immer wieder abspeichern. 

- Immer mit Hilfe des Programms abbrechen. 

- Falls das nicht geht, im Direktmodus eingeben: gosub 
rsrc_free 

Deshalb gleich im Anschluß die Prozedur, die den Speicher¬ 
bereich wieder freigibt. Sie wird ohne Parameter mit <Gosub 
Rsrc_free> auf gerufen: 


1 * Library Routine * 
■ 

Procedure Rsrc_free 
Gemsys 111 
Return 


Da liegt also nun das RSC irgendwo im freien Speicher. Oben in 
unserem Objekt-Baukasten haben wir die Lage über den 
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<Varptr> erfragen können. AES dagegen stellt uns eine Routine 
zur Verfügung, mit deren Hilfe wir alle benötigten Baum- und 
Objectadressen, also deren genaue Lage im Speicherraum, erfra¬ 
gen können. Die <Procedure Rsrc_gaddr> gibt je nach Parame¬ 
ter entweder die Anfangsadresse einer Baumstruktur, die An¬ 
fangsadresse eines Objekts innerhalb eines Baumes, die Adresse 
„einer TEDINFO-Struktur oder auch andere Adressen zurück: 

l******************** 

1 * Library Routine * 

■ 

Procedure Rsrc_gaddr(FX,OX,SX) 

Dpoke Gintin.FX 
Dpoke Gintin+2,0X 
Gemsys 112 
*SX=Lpeek(Addrout) 

Return 

Mit <Gosub Rsrc_gaddr(Flag%,Objektindex%,*Adresse)> wird 
die Funktion aufgerufen. Der Flag% selektiert die Struktur, de¬ 
ren Adresse Sie haben wollen: 

0 Adresse eines ganzen Baumes 

1 Adresse eines Objekts innerhalb eines Baumes 

2 Anfangsadresse der TEDINFO-Struktur 

3 Anfangsadresse der ICONBLK-Struktur 

4 Anfangsadresse der BITBLK-Struktur 

5 Textstringadresse 

6 Bitmusterdatenadresse 

7 Zeiger Ob_spec aus der OBJECT_Struktur 

8 Zeiger Te_ptext aus der TEDINFO-Struktur 

9 Zeiger Te_ptmplt aus der TEDINFO-Struktur 

10 Zeiger Te_pvalid aus der TEDINFO-AStruktur 

11 Zeiger Ib_pmask aus der ICONBLK-Struktur 

12 Zeiger Ib_pdata aus der ICONBLK-Struktur 

13 Zeiger Ib_ptext aus der ICONBLK-Struktur 

14 Zeiger Bi_pdata aus der BITBLK-Struktur 

Objektindex% erwartet den Konstantennamen aus der 
<Procedure Rsc_data>, der auf die gesuchte Struktur verweist. 
Aber Achtung: Bäume werden direkt mit dem Index adressiert, 



194 


GFA-BASIC Tips & Tricks 


d.h., Sie geben ein: "Treel%" bzw. "Tree2%" usw. Einzelobjekte 
dagegen wollen absolut angesprochen werden. Deshalb ist hier 
der Objektindex% immer: Anfangsindex des Baumes + relativer 
Objektindex, also z.B. "Tl_begin°/o+Tl_txt%". Und Tedinfo- 
Strukturen werden nach der Reihenfolge innerhalb ihres eigenen 
Feldes angesprochen (dazu später). 

Unser Beispielprogramm kann jetzt gestartet werden: Der RSC- 
File wird geladen, und die Anfangsadressen der beiden Bäume 
innerhalb des freien Speichers werden ermittelt. 


Gosub Rsrc_load("demo.rsc") 

Gosub Rsrc_gaddr(0,Tree1X,*Adr1) 

Gosub Rsrc_gaddr(0,Tree2X,*Adr2) 

Wenn Sie keine Geduld haben, können Sie schon mal versuchen: 

Gosub 0bjc_draw(Adr1,0,2) 

If Mousek=1 
cls 

Gosub Objc_draw(Adr2,0,3) 

Endi f 
Do 

Exit if Mousek=2 
Loop 

Gosub Rsrc_free 
End 


4.5 Statusfragen 

Die Objektboxen sind - was ihre inhaltliche Bedeutung angeht - 
jungfräulich. Um Aussagen machen zu können oder Ergebnisse 
zu erfragen, werden Vorbelegungungen und Zustandsabfragen 
benötigt. 

Es soll z.B. der Maskentext in Treel% mit dem Alter 37 Jahre 
vorbelegt werden, der zuständige String muß also angesprochen 
werden, und in Tree2% soll der Button "35 Jahre" beim Zeich¬ 
nen selektiert (invertiert) sein, das Statusflag also auf 1 gesetzt 
werden. 
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Für Statusfragen findet sich eine fertige AES-Routine: 

I ******************* 

1 * Library-Rout ine * 

I 

Procedure Objc_change(A,0%,S%,XX,Y%,W%,HX,FX) 

Dpoke Gintin,0X 
Dpoke Gintin+4,XX 
Dpoke Gintin+6,YX 
Dpoke Gintirv+8,W% 

Dpoke Gintir>+10,HX 
Dpoke Gintirrt-12,SX 
Dpoke Gintin+14,FX 
Lpoke Addrin.A 
Gemsys 47 

Return 

Sie wird aufgerufen mit: 

Gosub Objc-change(Adresse,IndexX,Neuer_statusX,Koordinaten,FlagX) 


4.5.1 Ob_state 

Die Parameter Adresse und Index% beziehen sich wie immer auf 
Baumadresse und anzusprechendes Objekt (hier wird der relative 
Index verwendet, weil ja die Baumadresse schon ausreichend 
referenziert), die Koordinaten definieren ein Rechteck, inner¬ 
halb dessen Grenzen die Statusänderungen erfolgen. Sie könnten 
damit auch einen halben Button invertieren. Im Normalfall 
übergeben Sie entweder die Koordinaten der Wurzel (siehe spä¬ 
ter) oder die des Bildschirms. Im Parameter Neuer_status% kön¬ 
nen folgende Werte (oder auch Kombinationen davon) übergeben 
werden: 


0 

1 

2 

4 


(NORMAL) 

(SELECTED) 

(CROSSED) 

(CHECKED) 


Normaldarstellung 
Invertiert, Selektiert 
Durchkreuzt 

Das Objekt wird mit einem Häkchen 
versehen. 
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8 (DISABLED) Das Objekt wird heller gezeichnet. 

16 (OUTL1NED) Das Objekt bekommt eine zusätzliche 

Umrahmung. 

32 (SHADOWED) Das Objekt wird schattiert dargestellt. 

Der 'letzte Parameter (Flag%) gibt an, ob das Objekt neu ge¬ 
zeichnet werden soll (1) oder nicht (0). 

In unserem Beispiel schreiben Sie jetzt vor die Zeile <Gosub 
Objc-Draw(...)> folgendes: 

Gosub Objc_change(Ad2,T2_b5X,1,0,0,640,400,0) 

An die editierbaren Strings heranzukommen, wird schon auf¬ 
wendiger. Hier wird ein direkter Eingriff in die Objektstruktur¬ 
daten erforderlich. Speziell in die TEDINFO-Struktur. 

Folgende Schritte sind nötig, um in diese Adresse einen Text 
einzuschreiben: 

1. Ermitteln der Adresse, an der die TEDINFO-Struktur 
beginnt. 

Gosub Rsrc_gaddr(2,Tedinfo_indexX,*Tedinfo adr) 

Hier wird im zweiten Parameter der Index des jeweiligen 
Tedinfo-Textes erwartet. Wir haben zwei davon, einen in 
Treel% und einen in Tree2%. Auch dieses Feld beginnt 
mit 0. Da hier also der erste geändert werden soll, heißt 
der Parameter "0". 

2. Nacheinander in die so ermittelte Adresse die einzelnen 
Buchstaben des Strings einschreiben. 

For NX=0 to Len(Text$) 

Poke Tedinfo_adr+NX,Mid$(Text$,NX,1) 

Next NX 

Daraus machen wir aber eine verallgemeinerte Library- 
Funktion mit folgender Aufrufstruktur: 
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<Gosub Obtxt_set(TedinfoindexX,TextlängeX,TextS)>. 


1 * Library-Rout ine * 

I 

Procedure Obtxt_set(OX,LX,T$) 

Local Ac^Ted,NX,AX 
Gosub Rsrc_gaddr(2,0X,*Ad) 

Ted=Lpeek(Ad) 

For NX=0 To LX-1 
AX=Asc(Mid$(T$,NX+1,1)) 

Poke Ted+NX,AX 
Next NX 

Return 

Jetzt können Sie oben in das Programm (ebenfalls vor 

<Gosub Objc-Draw(...)>) eine weitere Zeile setzen: 

Gosub 0btxt_set(0,2,"37") 

Wo wir gerade so weit sind, können wir das Verfahren ja auch 
umdrehen und damit die Routine bauen, mit der ein Text inner¬ 
halb der TEDINFO-Struktur gelesen werden kann. Wenn Sie 
inzwischen mit der Pointer-Hangelei vertraut sind, werden Sie 
kein großes Fragezeichen mehr vor Augen haben, wenn jetzt aus 
dem Longword der TEDINFO-Struktur die Textadresse heraus- 
gepeekt und aus dieser Adresse Byte für Byte der ASCII-Wert 
gelesen wird. 


Procedure Obtxt_get(OX,LX,S) 

Local Ad,NX,TS 

Gosub Rsrc_gaddr(2,0X,*Ad) 

For NX=0 To LX 

T$=T$+Chr$(Peek(Lpeek(Ad)+NX)) 
Next NX 
*S=T$ 

Return 


Übergeben wird wieder der Index der jeweiligen TEDINFO- 
Struktur und die Länge des abzufragenden Strings. Zurückgege¬ 
ben wird die Stringadresse, deren Inhalt im GFA-BASIC be¬ 
kanntlich direkt erfragt werden kann. 
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Und zur Vervollständigung - weil sie ebenfalls häufig gebraucht 
wird - die Prozedur, die das Statusflag des Objekts ausliest, also 
das Gegenstück zu <Objc_change>. Sie wissen inzwischen, daß 
das 5. Word dieses Flag beinhaltet. Es muß also lediglich die 
Anfangsadresse des Objekts innerhalb seiner Objektstruktur 
herausgefunden und dann 10 Byte weiter der Inhalt des Long- 
words gepeekt werden. 

Procedure 0bstate_get(0%,S%) 

Local Ad 

Gosub Rsrc_gaddr(1,0%,*Ad) 

*SX=Dpeek(Ad+10) 

Return 

Übergeben wird wie üblich der Objektindex, hier muß es der 
absolute Index innerhalb der Gesamtstruktur sein. Deshalb der 
Aufruf z.B. mit <Tree_begin°/o+Ob_index%>. In S% wird der 
jeweilige Status zurückgegeben, wobei dieselben Zahlenwerte 
wie in Objc-change beschrieben herauskommen. Zu beachten 
ist, daß diese sich addieren können, d.h., ein Objekt mit 
SELECTED-Flag und OUTLINED-Flag hat den Wert &H11. 

Jetzt wischen Sie sich erst einmal den Schweiß von der Stirn. 


4.6 Formulare 

Bisher haben Sie immer von Objekten oder Objektbäumen ge¬ 
hört. Digital Research hat für Dialogbäume den Begriff 
"Formular" eingeführt, der meines Erachtens hervorragend paßt. 
Denn ein Formular ist nichts anderes als ein standardisiertes 
Medium für Fragen und Antworten. Angefangen beim Lotto¬ 
schein bis hin zur Steuererklärung haben alle diese Formulare 
gemeinsam, daß an bestimmten Stellen bestimmte Eingaben er¬ 
wartet werden. Und ein Formular in GEM ist ein vordefiniertes 
Rechteck, in dem mit Hilfe der Maus etwas selektiert wird oder 
mit Hilfe der Tastatur bestimmte Eingaben erwartet werden. 
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Um diese Bedienung auch realisieren zu können, steht eine 
AES-Routine zur Verfügung, die Sie für das ganze Brimborium 
um Strukturen, Prozeduren, Pointer und Bäume entschädigt: 
<Form-Do>. 


1 LibraryRoutine * 
Procedure Form_do(A,0%,S%) 
Dpoke Gintin.OX 
Lpoke Addrin.A 
Gentsys 50 

*S%=Dpeek(Gintout) 

Return 


In diesen 6 Zeilen ist das komplette Formularhandling unterge¬ 
bracht. Es ist kaum zu glauben, was die Digital Research-Pro¬ 
grammierer geleistet haben: Solange, bis ein EXIT-Objekt an¬ 
geklickt wurde, verbleibt das Programm in dieser Routine. Der 
Benutzer kann Boxen selektieren und invertieren, Radio-Boxen 
lösen sich selbsttätig gegeneinander aus, in die vorformulierten 
Edit-Strings kann der mit der Maske und den Gültigkeitspara¬ 
metern vordefinierte Text eingeben werden, wobei die üblichen 
Tasten in Funktion bleiben: ESC löscht den String, Delete und 
Backspace löschen je ein Zeichen, und die Pfeiltasten funktio¬ 
nieren auch. Zurück erhalten Sie den Index desjenigen Objekts, 
das für die Rückkehr verantwortlich war. Und das alles in 6 
BASIC-Zeilen. 

Die Prozedur wird aufgerufen mit 

<Gosub Fornt_do(Baunadresse,Objektindex%,*Return-ObjektX)> 

Der Parameter <Objektindex%> wird nur beim Vorhandensein 
von Edit-Objekten oder Text-Objekten belegt, dann aber mit 
dem relativen Objektindex des ersten Textstrings dieses Baumes. 
Soll kein Maskentext durch die Routine angesprochen werden, 
sondern nur Boxen o.ä., wird eine 0 übergeben. 

Wenn Sie jetzt im Programm hinter den <Gosub 
Objc_draw(...)>-Aufruf folgende Zeilen setzen, können Sie zwei 
Zahlen als Altersangabe eingeben, evtl, korrigieren, mit dem 
EXIT-Button aussteigen, das Objekt wieder löschen, die 
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Objc_change-Prozedur setzt das durch das Anklicken selektierte 
Exitobjekt wieder auf Normal zurück, und Ihr Alter steht auf 
dem Bildschirm. 

Gosub Form_do(Ad1,T1_txt%,*Ret_ob%) 

Gosub 0bjc_change(Ad1,Ret_obX,0,0,X,Y,W,H) 

Gosub Obtxt_get(0,2,*Txt$) 

Print TxTS 

In unserer zweiten Demo-Box ist etwas mehr an Abfrage- und 
Eingabemöglichkeiten eingebaut. Ich zeige, wie erreicht werden 
kann, daß nach "Canceln" der alte Zustand wieder erscheint, wie 
das Ergebnis des angeklickten Buttons in den Maskentext ge¬ 
schrieben wird und wie der Status der Buttons überhaupt abge¬ 
fragt werden kann: 

Procedure Formularbedienung 

Sget ScreenS ! Retten des Bildschirms 

Gosub Objc_draw(Ad2,0,3) ! Zeichen des Objekts 

I 

For NX=T2_beginX+T2_b1X To T2_begin%+T2_b10% ! Erfragen des Status 

Gosub Obstate_get(NX,*StateX) ! der einzelnen Buttons 

Exit If Hex$(StateX)="1" ! Ausstieg, wenn SELECTED 

Next NX ! 

Old_stateX=NX-T2_beginX ! Selektierter Button 

Gosub Obtxt_get(1,2,*Old_strS) ! Textinhalt 

Do 

Gosub Form_do(Ad2,0,*Ret_obX) ! Formularroutine 

I 

If Ret_obX<>T2_okX And Ret_obX<>T2_canX ! Bei OK und CANCEL ist 
For NX=T2_beginX+T2_b1X To T2_beginX+T2_b10X ! die Abfrage nach 
Gosub Obstate_get(NX,*StateX) ! dem Selektierten Button 

Exit If Hex$(StateX)="1" ! nicht nötig 

Next NX 

String$=Str$((NX-1-T2_beginX-3)*5+10) ! Das Alter 

Gosub Obtxt_set(1,2,StringS) ! wird in das Text-Objekt 

Gosub Objc_draw(Ad2,T2_txtX,1,X,Y,W,H) ! geschrieben und das neu 

Endif ! gezeichnet 

Exit If Ret_ob%=T2_okX Or Ret_obX=T2_can% ! OK und CANCEL brechen 
Loop • die Schleife ab 

Gosub Objc_change(Ad2,Ret_obX,0,0,X,Y,W,H) ! Normalisierendes 

1 ! Button 
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Sput ScreenS I Der alte Bildschirm 

1 I wird wiederhergestellt 

If Ret_obX=T2_canX I Bei CANCEL wird der 

Gosub Objc_change(Ad2,NX-T2_beginX,0,0,X,Y,U ( H) I alte Zustand 
Gosub Objc_change(Ad2,Old_stateX,1 ( 0,X,Y,W,H) I wiederhergestellt 
Gosub Obtxt_set(1,2,Otd_str$) I wie gehabt vor Eintritt 

Endif I in die Routine. 

Return I Das wars 


Form_center und Objc_draw sind bekannt. In der folgenden 
For..Next-Schleife wird das Zustands-Flag der Buttons abge¬ 
fragt. In unserem Falle (Radio-Buttons) hat nur ein einziger den 
Status SELECTED, also &H1. Es werden der Reihe nach alle 
Knöpfe auf diesen Status abgefragt. Die Exit if ..-Bedingung 
gibt die Möglichkeit, aus dem letzten For..Next-ZähIer das je¬ 
weilige Objekt zu errechnen. 

So. Jetzt wird der alte Status und mit Hilfe von <Obtxt_get> 
auch der alte String gerettet. 

Die Form_do-Routine läuft in einer Do..Loop-Schleife, da ja 
fast alle Objekte mit EXIT gekennzeichnet sind und beim An¬ 
wählen jedesmal die Form-do-Routine verlassen wird. Ahnen 
Sie schon warum? Form_do ist eine in sich geschlossene Rou¬ 
tine, in die nur nach vorgegebenen Mustern etwas eingegeben 
werden kann. Wollen Sie die Eingabe auswerten und so wie hier 
z.B. den Wert, den der Button repräsentiert, in ein Edit-Objekt 
überführen, kann das nur außerhalb der Form-do-Routine 
passieren. 

Ausstieg aus der Schleife, wenn "OK" oder "Cancel" geklickt 
wurde. Es werden bei jedem Schleifendurchlauf alle Buttons 
nach ihrem Status abgefragt - wie oben. Jetzt soll die Zahl, die 
in dem Button steht, in den Maskentext eingetragen werden. Es 
sind drei Möglichkeiten vorhanden, den einzutragenden Inhalt zu 
erfragen. Bei Buttons - und nur bei denen - steht, wie bekannt, 
im 12. bis 15. Byte der Objektstruktur die Adresse des Strings, 
der im Button sichtbar ist. Der kann also mit einem Verfahren, 
ähnlich wie Obtxt_get, ausgelesen werden. Oder es werden 
if..endif-Bedingungen gesetzt: Wenn Ret_ob=l, dann Alter=15, 
wenn Ret__ob=2, dann Alter=20 usw. Ich habe hier einfach aus 
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dem Index des Objekts den Wert herausgerechnet, indem ich den 
5er Sprung der Zahlenreihe genutzt habe: Der erste Button hat 
den relativen Index 4, damit den absoluten Index T2_begin+4. 
Obstate_get gibt uns bekanntlich ebenfalls den absoluten Index 
zurück, so daß (N%-T2_begin%-4) eine Zahl zwischen 1 und 
Button-Anzahl zurückgibt. 

Diese Zahl wird der Obtxt_set-Routine übergeben und die Box 
neu gezeichnet. 

Falls die Box "gecancelt" wurde, muß das zuletzt angeklickte und 
selektierte Objekt normalisiert, das ursprünglich selektierte wie¬ 
der invertiert und der ursprüngliche String wieder an den Mas¬ 
kentext übergeben werden. 

Wenn Sie nach der Formularroutine für den ersten Objektbaum 
den Einsprung in diese Prozedur formulieren: 

<Gosub Formular_bedienung> 

Dann sind Sie mit dem zweiten Beispiel aus unserer Irrfahrt 
durch das AES-Labyrinth aus Bits, Bytes und Words fertig. 


4.7 Imageaufbesserungen 

Die Objektstruktur kann in dem Longword <ob_spec> (es wurde 
oben schon angedeutet) nicht nur auf die Sonderstruktur 
TEDINFO zeigen, sondern auch auf andere Sonderstrukturen, 
zum Beispiel BITBLK. Das Prinzip kann man sich genau wie bei 
TEDINFO vorstellen: Irgendwo im Speicher sind wieder einmal 
Bereiche reserviert, die Objektdaten enthalten, und zwar Daten 
über Bilder, die als Objekt (mit all seinen Möglichkeiten) an¬ 
sprechbar sind. Sie werden sich fragen, was soll das, ich kann 
doch einfach ein Pixel-Muster auf den Bildschirm zeichnen und 
habe denselben Effekt. Aber weit gefehlt. Versuchen Sie einmal, 
solch ein Bild als Teil eines Formulars zu benutzen, es zu selek¬ 
tieren oder automatisch zeichnen und löschen zu lassen. Oder 
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überlegen Sie, welche Möglichkeiten für Datenbanken bestehen, 
wenn auf diese Art ein Bildobjekt integriert werden kann. Eine 
weitere feine Anwendung zeige ich Ihnen später noch. 


4.7.1 Die BITBLK-Struktur 

Also: Ob_spec zeigt auf die Anfangsadresse der BITBLK- 
Struktur. Diese besteht aus lediglich 14 Byte, aufgeteilt in: 


1. Longword (Bi_pdata) 

Anfangsadresse des Datenblocks, in dem das Pixel-Muster des 
Bildes steht. 


2. Word (Bi_wb) 

Breite des Bildes in Byte 

3. Word (Bi_hl) 

Höhe des Bildes in Pixeln 


4. Word (Bi_x) 

X-Koordinate des Bildes innerhalb des Objektbereichs. 


5. Word (Bi_y) 

Y-Koordinate des Bildes innerhalb des Objektbereichs. Das 
Objekt, in dem die Bilddaten zu integrieren sind, kann in seinen 
Grenzen größer sein als das eigentliche Bild. Mit dem 4. und 5. 
Word kann das Bild innerhalb dieses Rahmens verschoben 
werden. 

6. Word (Bi_color) 

Farbe des Musters, 0 für weiß, 1 für schwarz usw. 
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Weiter vorne im Buch wurde schon viel über Bildschirmorgani¬ 
sation gesagt: 640 Bits horizontal * 400 Bits vertikal sind 256000 
Bits, die die Pixel-Informationen für den Schwarz-weiß-Bild- 
schirm tragen können: 0 für weiß und 1 für schwarz. Eine 
Bildschirmzeile entspricht somit 640/8=80 Byte, der Bildschirm 
ist 80*400 Byte = 32000 Byte groß. 

So einfach liegt der Bildschirm wirklich innerhalb des freien 
Speicherraumes. 32000 Byte hintereinander sind alle Pixel-In¬ 
formationen eingetragen, angefangen bei Physbase, die durch 
<adr=Xbios(2)> zu erfragen ist. 



Abb. 17: B1TBLK-Struktur 


Und so einfach ist auch der Datenblock, der die Bilddaten bein¬ 
haltet, im Speicher zu organisieren: hintereinanderweg alle Bytes 
mit den entsprechenden Pixel-Informationen. Damit die 
Objc_draw Routine nun weiß, wann sie einen "Zeilenumbruch" 
zu machen hat, wird im BITBLK die Bildbreite in Byte angege¬ 
ben, und damit sie weiß, wann Schluß ist, wie lang also der 
Bilddatenbereich innerhalb des RAM ist, wird die Pixel-Höhe 
des Bildes eingetragen. Dann ist Länge des Speicherbereichs in 
Byte = Breite%*Hoehe%. Und weil der 68000 Prozessor durch 
Byteberechnungen weit unterfordert wäre, weil er ja 16 Bit bzw. 
intern sogar 32 Bit gleichzeitig transportieren kann, arbeiten wir 
in 2-Byte-Einheiten, also Words. 
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So. Nun geben wir in einen reservierten Speicherbereich sol¬ 
cherart Bilddaten ein. Reserviert wird nach der schlichten, be¬ 
kannten Methode: 


Image$=Space$(Breite%*Hoehe%*2) 
Image_adr%=Varptr(ImageS) 


In die einzelnen Byte dieses Strings poken wir jetzt nacheinan¬ 
der die Bilddaten ein. Entweder direkt: 

Dpoke Image_adr%, &X1010001100011111 
Dpoke Image_adr%+2,&X0000110011100011 

usw., wobei jede 1 einem schwarzen und jede 0 einem weißen 
Punkt entspricht, ein Verfahren, das aber sehr mühsam und 
schreibaufwendig ist, oder wir lassen diese Binärzahlen in ihre 
Dezimalwerte umrechnen: 

Dpoke ImageadrX,??????????? 

Dpoke Image_adr%+2,??????????? 

usw. Die einzelnen Word-Werte werden in DATA-Zeilen abge¬ 
legt und mit <Read> wieder herausgelesen. 

Wie Sie diese Image-Daten produzieren können, zeigt Ihnen das 
nächste Kapitel. 

Legen Sie jetzt mit Hilfe des RCS oder auch zu Fuß, wie im 
ersten Abschnitt beschrieben, die Objektstruktur an. Eine Box 
als Wurzel und ein Image als Unterobjekt sowie ein BUTTON 
mit Exit-Flag reichen. Ziehen Sie das Image soweit auf, daß Ihr 
Quellbildchen hineinpaßt, und machen Sie’s nicht zu groß, die 
Handlichkeit des Programms schwindet mit der Größe des 
Bildes. 

' ***** LIBRARY-ROUTINE ***** 

t 

Procedure Imagedaten 

Local Breite%,Hoehe%,Dta%,1% 

Breite%=_ ! in Uords 

Hoehe%= __ 

Data 0,0,0,... 
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Data. 

Data 65535, 


For 1X=0 to Breite%*HoeheX*2-1 Step 2 
Read DtaX 

Dpoke Image_adrX+iX,Dta% 

Next IX 


Gosub Rsrc_gaddr(4,0,*Bitblkadr) 
Lpoke Bitblk_adrX,Image_adrX 
Dpoke Bitblk_adr+4,BreiteX*2 
Dpoke Bitblk_adr+6,HoeheX 
Dpoke Bitblk_adr+8,0 
Dpoke Bitblk_adr+10,0 
Dpoke Bitbtk_adr+12,1 
Return 


! Anfangsadresse des BITBLK 
! Anfangsadresse der Bilddaten 
! Breite des Feldes in Byte 
! Höhe des Feldes in Pixeln 
! X-Koordinate 
! Y-Koordinate 
! Farbe 


Das war’s auch schon. Starten Sie dieses 3. AES-Beispiel: 

1 Programm: IMAGE.BAS 

I 

Gosub Rsrc_load("IMAGE.RSC") 

Gosub Rsrc_gaddr(0,0,*ad1) 

Gosub Imagedaten 
Gosub Objc_draw(ad1,0,2) 

Gosub Formdotadl,0,*ret_obX) 

Gosub Rsrc_free 

Ihr Bild erscheint auf dem Bildschirm. 

Mit diesem Image-Objekt kann jetzt ebenso wie mit den übrigen 
Ihnen bekannten Objekten verfahren werden. Mit <Procedure 
Objc-change(...)> können Sie den Status_flag verändern, durch 
Manipulation des 8. und 9. Words der Objektstruktur ändern Sie 
die Koordinaten des IMAGE-Objekts innerhalb der Wurzelbox, 
Sie können auch, wenn Sie zwei Bilder einladen und zwei 
Speicherbereiche für die Bilddaten, aber eine BITBLK-Struktur 
reservieren, zwischen den beiden Bildern hin- und herschalten: 
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Abb. 18: Der Papiertiger: Ai* Objekt geb&ndigt 


Repeat 

Lpoke Bitblk_adr,Bilddatenadresse_1 
Gosub Objc_draw(...) 

Lpoke Bitblkadr.Bilddatenadresse_2 
Gosub Objc_draw(...) 

Until Mousek=0 


4.7.2 Der Image-Generator für die Bilddaten 

Dieses einfache, aber recht wirkungsvolle Programm besteht aus 
zwei Prozeduren, einer, die das Bild, das in Objektdaten über¬ 
führt werden soll, lädt und umwandelt, und einer, die es wieder 
auf die Diskette zurückspeichert. 
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Die <Procedure Image_find> lädt das File in den Bildschirm¬ 
speicher, und mit Hilfe des Mauszeigers läßt sich mittels zweier 
Schleifen ein Bereich aus diesem Bild auswählen, der in den 
String <Temp$> überführt wird. Dieser wird dann in die linke 
obere Ecke des Bildschirms geschrieben. Also nochmal: Es muß 
erreicht werden, daß auf möglichst einfache Art die Pixel- 
Information eines Bildschirmbereiches gelesen werden kann. Der 
Bildschirmbeginn bei <Xbios(2)> ist definiert, also packen wir 
das Bild dorthin, lesen Wort für Wort des Bildschirmspeichers 
aus und überführen diese Informationen in das zweidimensionale 
Array <Wort(x,y)>. 

1 Programm: IMG_EDIT.BAS 

I 

Procedure Image_find 
Dim Word(400,50) 

Fiteselect "a:\*.*", m, ,Name$ 

If NameSo"" 

Bload Name$,Xbios(2) 

Do 

Mouse XX,YX,KX 
Exit If KX=1 
Loop 

Uhile KX=1 
Graphmode 3 
Mouse X1X,Y1X,KX 
Vsync 

Box XX,YX,X1X,Y1X 
Vsync 

Box XX,YX,X1X,Y1X 
Wend 

Get XX,YX,X1X,Y1X,Temp$ 

Cts 

Put 0,0,TempS 

BreiteX=Int(Abs((X1X-XX))/16)+1 
HoeheX=Abs(Y1X-YX) 

Adr=Xbios(2) 

For LX=1 To HoeheX 
For MX=0 To BreiteX-1 
Uord(LX,MX)=Dpeek(Adr) 

Add Adr,2 
Next MX 

Add Adr,(40-BreiteX)*2 
Next LX 
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Endi f 
Return 

I 

Procedure Imagesave 

Fi leselect "A:\*. icn", ,, ",Name$ 

If Name$<>"" 

Open "0",#1,NameS 
Print #1,"BreiteX=";+BreiteX 
Print #1 1 ,, HoeheX=";+HoeheX 
For NX=1 To HoeheX 
Print #1,"data 
For HX=0 To BreiteX-1 
Print #1,StrS(Word<NX,MX))+V; 
Next MX 
Relseek #1,-1 
Print #1 
Next NX 
Ctose #1 
Endi f 
Return 


Mit der Zeile ’Relseek#ll’haben wir wieder einen kleinen 
Trick geschafft. Da nach jeder Zahl das Komma zum Trennen 
der einzelnen Datas geschrieben wurde, dieser aber beim letzten 
Eintrag einer Zeile falsch wäre, postieren wir den File-Pointer 
auf die Position des letzten Kommas und überschreiben dieses 
mit Print#l. 


4.8 Neue Icons für unsere Programme 

In Programmen wie ADIMENS oder dem Resource Construction 
Set finden Sie Icons, also kleine Desktop-Bildchen, die an¬ 
geklickt werden und dadurch bestimmte Prozesse auslösen kön¬ 
nen. Auch diese Icons sind als Objekte innerhalb der Ob¬ 
jektstruktur gelagert. Für sie zeigt das Longword <Ob_spec> auf 
die Adresse der ICONBLK-Struktur. 

Icons unterscheiden sich von den oben erläuterten Images durch 
drei zusätzliche Features: Zum einen bestehen sie aus den Bild¬ 
daten und zusätzlich aus den dazugehörigen Maskendaten, d.h., 
daß sie invertiert auch wieder ein korrektes Bild ergeben, unab- 
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hängig davon, auf welchem Untergrund sie liegen. Sie werden 
also bedingungslos im Graphmode 1 dargestellt. Zum zweiten ist 
in der ICONBLK-Struktur ein Zeiger auf einen String enthalten, 
der z.B. bei den Desktop Icons für die Laufwerke die Lauf¬ 
werksbezeichnung oder bei denen für die Disketten-Files deren 
Namen enthält, und zum dritten, ebenfalls innerhalb der Struk¬ 
tur eingebunden, gibt’s einen Charakter, der weitere Spezifika¬ 
tionen angibt. Bei den Laufwerk-Icons kennzeichnet dieser 
Charakter den Laufwerkskennbuchstaben. 

Am Anfang auch hier wieder die Struktur des Speicherbereichs, 
auf den ob_spec aus der Objektstruktur zeigt. Er ist diesmal 32 
Byte lang:. 


4.8.1 Die ICONBLK-Struktur 


l.Longword (Ib_pmask) 

Adresse des Speicherbereichs, in dem die Icon-Maskendaten ab¬ 
gelegt sind. 


2. Longword (Ih_pdata) 

Adresse des Speicherbereichs, in dem die Icon-Bilddaten abge¬ 
legt sind. 


3. Longword (Ib_plext) 

Adresse des Speicherbereichs, in dem der zugehörige String ab¬ 
gelegt ist. 


4. Word (Ib_char) 

Der zugehörige Charakter (wie das "A" im Icon "Diskstation") 

5. Word (Ib_xchar) 

X-Koordinate dieses Charakters, relativ zur linken oberen Ecke 
des Icons, die in der Objektstruktur definiert ist. 
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6. Word (Ib_y_char) 

Y-Koordinate dazu 

7 . Word (Ib_xicon) 

X-Koordinate der linken oberen Ecke des Icons, auch relativ 
zur Hauptkoordinate in der Objektstruktur. 

8. Word (Ib_}’icort) 

Y-Koordinate der linken oberen Ecke des Icons 

9. Word (Ib_wicon) 

Breite des Datenfeldes in Pixeln. Das muß eine Zahl sein, die 
ohne Rest durch 16 teilbar ist, also innerhalb von Word-Grenzen 
liegt. 

10. Word (Ib_hicon) 

Höhe des Datenfeldes in Pixeln. 

11. Word (Ib_xtext) 

X-Koordinate des Textes, relativ zur oberen linken Ecke des 
Icons aus der Objektstruktur. 

12. Word (Ib_ytext) 

Dazugehörige Y-Koordinate des Textes 

13. Word (Ib_wtext) 

Breite des Textes in Pixeln 

14. Word (Ibjüext) 

Höhe des Textes in Pixeln 
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Nach derselben Methode wie bei den Images weiter oben, nur 
jetzt mit insgesamt drei Datenfeldern, wird das Icon dargestellt. 
Wieder können mit Hilfe des Varptr Speicherbereiche reserviert 
und darein die Icon-Daten gepoked werden. Ich zeige hier zur 
Abwechslung eine zweite Methode, die allerdings ihre Grenzen 
bei zu großen Datenfeldern hat. Es werden hier Zahlen als Da¬ 
tenträger geliefert, die in einen String umzuwandeln sind. Genau 
dafür enthält GFA-BASIC den Befehl Mki$(), der eine Integer¬ 
zahl in einen String verwandelt. Der Rest der <Procedure Icon- 
definition> ist jetzt für Sie nicht schwer zu lesen. Die in Data- 
Zeilen gefangenen Icon- und Maskendaten, hier abwechselnd 
Icon und Maske, werden in zwei Strings eingelesen, deren An¬ 
fangsadressen erfragt und wie gehabt der ICONBLK-Struktur 
übergeben. Ich habe hier der Verständlichkeit halber die Icon- 
Größe auf 48x48 Pixel festgesetzt und auch die Lage und Höhe 
der Charakter- und Stringdaten nicht variabel gemacht. Ihnen 
wird es sicherlich nicht schwerfallen, das mit den bisherigen 
Informationen zu verändern. 
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Abb. 19: ICONBLK-Struktur 


Procedure Icondefinition(T,xt$,C.hr$) 

Local IX,Msk,Dta, 

1 Icon Datenblock 

Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
Data .... 

Data * 
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T.xt$=T.xtS+Chr$(0) 

I 

1 Icondaten umwandeln 
For IX=1 To 48*3 
Read AX 

Icond$=Icond$+Mki$(AX) 

Read BX 

Iconm$=Iconm$+Mki$(BX) 

Next IX 

i 

Dta=Varptr(IcondS) 

Hsk=Varpt r (I conrrtt) 

Gosub Rsrc_gaddr(3,0,*Iconadr) 

I 

Lpoke Iconadr.Msk I 

Lpoke Iconadr+4,Dta I 

Lpoke Iconadr+8,Varptr(TxtS) ! 

Dpoke Iconadr+12,Asc(C.hrX) ! 

Dpoke Iconadr+14,0 • 

Dpoke Iconadr+16,0 ! 

Dpoke Iconadr+18,0 ! 

Dpoke Iconadr+20,0 ! 

Dpoke Iconadr+22,48 ! 

Dpoke Iconadr+24,48 ! 

Dpoke Iconadr+26,0 ! 

Dpoke Iconadr+28,40 ! 

Dpoke Iconadr+30,len(t.xt$)*8 ! 

Dpoke Iconadr+32,8 ! 

Return 


Adresse des Datenblocks 
Adresse des Maskenblocks 
Adresse des Strings 
Charakter 

X-Koordinate des Charakters 
Y-Koordinate des Charakters 
X-Koordinate des Piktogramms 
Y-Koordinate des Piktogramms 
BreiteX in Pixe ln 
HöheX in Pixe ln 
X-Koordinate des Textes 
Y-Koordinate des Textes 
Breite des Textes in Pixeln 
Höhe des Textes in Pixeln 


Wenn Sie mit Hilfe des RCS ein Objekt ICON definiert haben, 
können Sie jetzt ein wunderschönes, selbstgebautes Icon auf dem 
Bildschirm haben. Es muß natürlich, um ansprechbar zu sein, 
mit dem SELECTABLE-Flag ausgestattet sein, und vergessen Sie 
nicht, daß irgendeins der Objekte das EXIT-Flag haben muß. 
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Abb. 20: Icons 


Hier wieder die Formularroutine dazu. Da nichts Neues dabei 
ist, wird sie unkommentiert wiedergegeben: 


Gosub Rsrc_load("icon.rsc") 
Gosub Rsrc_gaddr(0,Tree1X,*Ad1) 
Gosub Icondefinition 
Gosub Objc_draw(Ad1,0,3) 

Gosub Form_do(Ad1,0,*Ret_obX) 
Gosub Rsrc free 


I RSC-File laden 
! Oie Baumadresse 

! und Formular zeichnen 
f Oie Formularroutine 


4.8.2 Ein Icon-Editor für die Objektstruktur ICON 

Noch haben Sie keine Daten, die Sie in die ICONBLK-Struktur 
einbinden könnten. Es muß also noch ein Editor her. Hier ist er, 
er besteht aus zwei Prozeduren zum Aufbau des Icons und zum 
Abspeichern. Drumherum sind noch einige Prozeduren gewebt, 
die den Bildschirm verschönern und die Bedienung erleichtern. 

In Kapitel 3.1 haben Sie bereits einen ähnlichen Editor, 
"IMAGEDIT", kennengelernt. Bei diesem konnten Sie bei glei- 
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eher Maussteuerung IMAGES von 16*16 Bit bis 32*32 Bit er¬ 
stellen. Je nach Aufgabe Ihres IMAGES konnten Sie Masken 
oder Datas zeichnen und als Binär- und Dezimaldatas abspei¬ 
chern. In diesem Programm nun haben wir ein kleines Menü zur 
Verfügung und müssen uns nicht durch Alertboxen hangenin. 
Außerdem steht uns jetzt ein erweitertes Raster von 48*48 Bild¬ 
punkten zur Verfügung. Das Umschalten zur Masken- und 
Data-Erstellung ist möglich. Nun folgt wieder die Beschreibung 
der einzelnen Prozeduren. 

Fangen wir mit der <Procedure Screen> an. Hier wird eine 
Überschrift gemalt, ein großes Karofeld ausgebaut, in dem das 
Icon und seine Maske gezeichnet wird. Eine kleine Box daneben 
zeigt das fertige Icon in Originalgröße, und ein einfacher Menü¬ 
baum soll Verzweigungen zum Zeichnen der Maske, Abspei¬ 
chern, Ausstieg usw. ermöglichen. 

1 Programm: ICNEDIT.BAS 

I 

Procedure Screen 
Box 400,8,630,38 
Deftext 1,17,0,13 
Text 470,26,''ICONEDITOR" 

Deftext 1,0,0,4 

Text 450,35,"gebastelt von Udo Onnen" 

Deftext 1,0,0,6 
Text 457,115,"Icon" 

Text 465,125,"und" 

Text 450,135,"Maske" 

I 

Deftext 1,0,0,13 
Box 400,303,630,385 
Text 450,317,"Icondata" 

Line 400,319,630,319 
Text 450,333,"Iconmaske" 

Line 400,335,630,335 
Text 450,350,"Icon laden" 

Line 400,352,630,352 

Text 450,366,"Icon speichern" 

Line 400,368,630,368 
Text 450,382,"Ende" 
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For NX=0 To 48*8 Step 8 
Line 8,8+NX,8+48*8,8+NX 
Line 8+NX.8,8+NX,8+48*8 
Next NX 

Box 500,100,550,150 
Return 

Die <Procedure Zeichnen» ermöglicht die Eingabe von ver¬ 
größerten Pixeln in das Karofeld, eventuelles Löschen von 
Pixeln und malt das Ergebnis in Originalgröße in die Iconbox: 
Innerhalb einer Do..Loop-Schleife wird der Mauscursor abge¬ 
fragt, ob er im Menüfeld oder im Zeichenfeld steht. Die Maus¬ 
koordinaten werden so verwandelt, daß jedes Kästchen eine von 
der linken oberen Ecke aufsteigende Zahlenfolge von 1 bis 48 
erhält (sowohl waagerecht als auch senkrecht). Wenn innerhalb 
eines Kästchens die linke Maustaste gedrückt wird, wird dieses 
Kästchen schwarz gemalt und in ein zweidimensionales Array 
Mask%() bzw. Dta%() an der entsprechenden Zeilen- und Spal¬ 
tenposition eine "1" geschrieben. Gleichzeitig wird an der ent¬ 
sprechenden Stelle in der Iconbox ein einzelner Punkt geplottet, 
bei der Maskeneingabe in einer einfachen, selbstdefinierenden 
Graphmode 3-Variante. Nach Anklicken der rechten Maustaste 
geschieht haargenau dasselbe, nur daß nun ein weißes Kästchen 
gefüllt und ein weißer Punkt geplottet wird. 


Procedure Zeichnen 
Do 

Mouse XX,YX,KX 

If XX>400 And XX<630 And YX>270 And YX<386 And KX=1 
Gosub Menu 
Endi f 

If XX>=8 And YX>=8 And XX<8+48*8 And YX<8+48*8 
X1X=(XX Div 8)*8 
Y1X=(YX Div 8)*8 
If KX=1 
Deffill 1,1 

Pbox XIX,Y1X.X1X+8,Y1X+8 
If D!=True 
Dta(YIX/8,X IX/8)=1 
Else 

Mask(Y1X/8,X1X/8)=1 
If Dta(Y1X/8,X1X/8)=1 
Color 0 
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Else 
Color 1 
Endif 
Endi f 

Plot 500+X1X/8,100+Y1X/8 
Color 1 
Else 
If KX=2 
Deffill 1,0 
Color 0 

Pbox X1X,Y1X,X1X+8,Y1X+8 
If D!=True 
Dta(Y1X/8,X1X/8)=0 
Else 

Mask(Y1X/8,X1X/8)=0 
Endi f 

Plot 500+X1X/8,100+Y1X/8 
Color 1 
Endif 
Endi f 
Endi f 

Exit If KX=3 
Loop 
Return 


Auf diese Weise haben wir in zwei Arrays Dta%() und Mask%() 
für jedes Iconpixel die Aussage schwarz oder weiß, gegliedert in 
die Piktogramm- und die Maskendaten, erhalten. In Computer¬ 
sprache: Wir haben die einzelnen Bitinformationen. Diese in die 
erforderlichen Worddaten zu verwandeln, sollte leicht sein und 
ist es auch. Es werden immer Pakete von 16 Bit geholt und nach 
der Binärformel x=2 A 0+2 A l+2 A 2+....+2 A n in eine Integerzahl um¬ 
gerechnet. Diese Zahl wird dann sofort auf die Diskette gespei¬ 
chert. Der Rest der Prozedur dient lediglich dazu, den Daten- 
File vom BASIC-Programm wieder einiesen zu können. 

Procedure Icon_save 
Fileselect 
If NameS«»"" 

Open ,Name$ 

CX=0 

Print #1,"data 
For NX=1 To 48 
For MX=1 To 16 
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If Dta(NX,MX)=1 

Icn=Icn+2 A (Abs(MX-16)) 
Endi f 

If Mask(NX,MX)=1 
Msk=Msk+2 A (Abs(MX-16)) 
Endi f 
Next MX 

Print #1,Icn;",";Msk;","; 

lcn=0 

Msk=0 

For MX=17 To 32 
If Dta(NX,MX)=1 
Icn=Icn+2 A (Abs(MX-32)) 
Endi f 

If Mask(NX,MX)=1 
Msk=Msk+2 A (Abs(M%-32)) 
Endif 
Next MX 

Print #1,1cn;",";Msk;","; 

lcn=0 

Msk=0 

For MX=33 To 48 
If Dta(NX,MX)=1 

Icn=Icn+2 A (Abs(MX-48)) 

Endif 

If Mask(NX,MX)=1 
Msk=Msk*2 A (Abs(MX-48)) 
Endif 
Next MX 

Print #1, Icn/'V'.-Msk; 
lcn=0 
Msk=0 
Inc CX 
If CX<3 
Print #1,","; 

Else 

Print #1, 

Print #1,"data 
CX=0 
Endi f 
lcn=0 
Next NX 
Print #1,"*" 

CI ose #1 
Endi f 
Return 
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Zwei weitere Prozeduren dienen der Erneuerung des Zeichen¬ 
bereichs beim Wechseln von Piktogrammeingaben zu Maskenein¬ 
gaben. Sie sind nicht weiter spannend, es werden die Arrays ab¬ 
gefragt und entsprechend weiße oder schwarze Pboxen gemalt. 
Zusätzlich wird natürlich in der Iconbox das bisher gezeichnete 
Piktogramm in Originalgröße dargestellt. 

Procedure Icondata 
D!=True 
Graphmode 1 
For NX=1 To 48 
For MX=1 To 48 
If Dta(NX,MX)=1 

Deffitl 1,1 

Pbox MX*8,NX*8,MX*8+8,NX*8+8 

Color 1 

Plot 500+MX,100+NX 
Else 

Deffill 1,0 

Pbox MX*8,NX*8,MX+8+8,NX+8+8 

Color 0 

Plot 500+MX,100+NX 
Endi f 
Next MX 
Next NX 
Gosub Zeichnen 
Return 


Procedure Iconjnask 
D!=False 
Graphmode 1 
For NX=1 To 48 
For MX=1 To 48 
If Mask(NX,MX)=1 
Deffill 1,1 

Pbox MX*8,NX*8,MX*8+8,NX+8+8 
Color 1 

Plot 500+MX,100+NX 
Else 

Deffill 1,0 

Pbox MX*8,NX*8,MX*8+8,NX*8+8 
Color 0 

Plot 500+MX,100+NX 
Endi f 
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Next M% 

Next NX 
Gosub Zeichnen 
Return 


Sinn macht dieser Aufwand natürlich erst dann, wenn durch 
eine Menüsteuerung auch gewährleistet ist, daß zwischen Daten- 
und Maskeneingabe hin- und hergeschaltet werden kann, daß 
bei Bedarf gesichert wird und daß ein ordnungsgemäßes Been¬ 
den des Programms möglich ist. Dafür also die Prozedur Menu, 
die die verschiedenen Prozeduren verwaltet. Wenn Sie sich die 
If..Endif Bedingungen für Icon_load und Icon_save ansehen, 
finden Sie übrigends eine einfache und problemlose Radio- 
Button-Routine, die Boxen wechselweise selektiert oder norma¬ 
lisiert. Es geht also auch ohne Objekte, nicht wahr? 

Procedure Menu 
Graphmode 3 
If YX>303 And YX<319 
Gosub Icondata 
Endi f 

If YX>319 And YX<335 
Gosub Iconmask 
Endi f 

If YX>335 And YX<352 
Color 1 

Pbox 400,335,630,352 
Gosub Iconload 
Color 0 

Pbox 400,335,630,352 
Endi f 

If YX>352 And YX<368 
Color 1 

Pbox 400,352,630,368 
Gosub Icon_save 
Color 0 

Pbox 400,352,630,368 
Endif 
If YX>368 
Color 1 

Pbox 400,368,630,385 

Alert 2,"Soll wirklich Schluß sein ? ,, ,2, l, Ja|nein",KnopfX 
If KnopfX=1 
End 
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Endi f 
Color 0 

Pbox 400,368,630,385 
Endi f 

Graphmode 1 
Return 


Procedure Icon_load 

I 

1 Diese Procedure sollten Sie nach den bisher beschriebenen Funk 
1 tionen selbst entwickeln können. Sie können sich dabei auf die 
1 Prozedur "Icon_save" beziehen, da Sie die Daten genauso 
1 wieder einladen können. 




fvon uao Onnen 



Icondata 


Iconnaske 
Icon laden 


Icon speichern 


Ende _| 


Abb. 21: Der Iconeditor 


Die letzten vier Zeilen sind die ersten. Sie gehören an den 
Programmanfang, dimensionieren die Arrays und starten das 
Programm. 
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Dim Dta(48,48) 
Dim Mask(48,48) 
0■=True 

I 

Gosub Screen 
Gosub Zeichnen 


4.9 Die Krönung: Das private Desktop 

Mit all der Erfahrung, die Sie jetzt haben, würde es Ihnen ge¬ 
lingen, für Ihre Programme neue Bedienungsoberflächen zu 
schaffen, die ästhetisch ansprechend und funktional durchdacht 
sind. Warum nicht ein Bild statt des tristen grauen Hintergrun¬ 
des, warum nicht - wie z.B. in Ist-Word vorexerziert, die 
Funktionstastenbelegung und deren momentanen Status anzeigen 
lassen. Vieles, vieles mehr gäbe es zu sagen. Wenn nicht dieser 
so wunderschön durchdachte Hintergrund von Fenstern, Desk- 
accessories und anderen Objekten überschrieben werden würde. 
So geht’s also nicht. 

Aber wenn ich Ihnen jetzt verrate, daß in der "Wind_set"- 
Routine aus der Window_library ein Parameter so belegt werden 
kann, daß auf einmal eine Objektstruktur als Desktop generiert 
und verwaltet werden kann, so daß der Hintergrund nach Über¬ 
lagerungen von Fenstern oder Acc’s wieder erscheint, wie es ihm 
bestimmt ist, dann können Sie Ihr Ziel erreichen. Und wenn Sie 
jetzt noch feststellen werden, wie trivial das ganze Verfahren 
ist, werden Sie staunen. 

Sie brauchen lediglich einen Resource-File zu generieren (ob mit 
Hilfe des RCS und unter Verlust von 32 KByte oder zu Fuß 
innerhalb des Programms, ist auch hier egal), diesen nach der 
bekannten Methode zu laden, seine Adresse zu erfragen, den 
zuständigen Objektbaum zu zeichnen und die Adresse der 
Wind_set-Routine zu übergeben. 

Aber wie alles im Leben hat auch dies einen kleinen Haken, der 
allerdings im Resource Construction Set aufgehängt ist: be¬ 
kanntlich kann dieses kein Objekt von ganzer Bildschirmbreite 
und -höhe erzeugen, weil es in einem Fenster mit seinen Rän- 
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dern arbeitet. Ein dort erzeugtes Objekt, das so groß wie der 
Bildschirm sein soll, muß innerhalb des laufenden Programms 
modifiziert werden. 

Aber auch das Verfahren ist ohne Schwierigkeiten zu bewerk¬ 
stelligen. Sie wissen, daß jeweils im 16., 18., 20. und 22. Byte 
der Objektstruktur die Objektkoordinaten liegen. Hier kann also 
mit einem einfachen Dpoke der Wert entsprechend geändert 
werden. 

Das kleine Beispielprogramm, das ich Ihnen hier vorstelle, zeigt 
lediglich ein einfaches Bildchen aus Standard-Objekten zusam¬ 
mengesetzt und 10 Boxen am unteren Bildschirmrand, die z.B. 
die Funktionstasten darstellen können. Ein "Ostrowski-Fenster" 
wird mit einem Klick auf die linke Maustaste geöffnet und mit 
einem auf die rechte wieder geschlossen. Damit ist bewiesen, 
daß der Objektbaum neues Desktop geworden ist. 


1 Programm: DESKTOB.BAS 

I 

Gosub Rsc_init 
Gosub Hain 
End 

I 

Procedure Rsc_init 

Gosub Rsrc_toad("desktop.rsc") 
Gosub Rsrc_gaddr(0,Tree1X,*Ad1) 
Dpoke Adl+18,20 
Dpoke Adl+20,640 
Dpoke Adl+22,390 

I 

For NX=1 To 19 Step 2 
Gosub Rsrc_gaddr(1,NX,*Ad) 
Dpoke Ad+18,350 
Dpoke Ad+22,25 
Next NX 
Dpoke Ad+20,55 

I 

Gosub Objc_draw(Ad1,0,3) 

Gosub Wind_set(Ad1) 

Return 


! Laden des RCS-Files 
! Ermitteln der Adresse 
! Hier werden die Y-Koordi- 
! nate, die Breite und 
! Höhe der Wurzel geändert 

! Auch die F-Tasten-Boxen 
! müssen in zwei Koordi- 
! natenwerten verändert 
! werden. 

! Anpassen der Box am rechten 
! Bildschirmrand 
! der Baun wird gezeichnet 
! Und Wind_set macht daraus 
! das Desktop 



224 


GFA-BASIC Tips & Tricks 


Procedure Main 
Do 

Exit If Mousek=3 
If Mousek=2 And Offen!=True 
Closew 3 
Offen!=False 
Endi f 

If Mousek=2 And Offen!=False 
Openw 3 
Clearw 3 
Offen!=True 
Endi f 


In den folgenden Zeilen 
wird auf Hausklick das 
Fenster geöffnet und 
wieder geschlossen. 


Gosub Objc_find(Ad1,*Ob%) ! Hier wird's wieder spannend: 

If Mousek=1 And ObX<>0 ! Objc_find gibt den Index des 

Gosub Obstate_get(Ob%,*StateX) (Objekts zurück, über dem 
If State%=32 ! der Mauszeiger steht. Wenn 

Gosub Objc_change(Ad1,0b%,1,0,0,640,400,1) ! dieses 
Endif ! Objekt selektiert ist, wirds 

If StateX=1 ! normalisiert, ansonsten selek- 

Gosub Objc_change(Ad1,Ob%,32,0,0,640,400,1) ftiert. Die 
Endif ! Routinen Obstate_get und 

Pause 10 ! Objc_change wurden früher 

Endif ! schon vorgestellt. 


Loop 
Closew 3 
Gosub Rsrc_free 
Return 


******* Library-Rout inen ** 
Procedure Wind_set(A.) 

Dpoke Gintin.O 
Dpoke Gintin+2,14 
Lpoke Gintin+4,A. 

Dpoke Gintin+8,0 
Gemsys 105 
Return 

I 

Procedure Objc_find(A.,0.%) 
Gemsys 79 

MxX=Dpeek(Gintout+2) 

My%=Dpeek(Gintout*4) 

Dpoke Gintin.O 
Dpoke Gintin+2,5 


! Hier also der Windset. 

I Gint in erhält das Handle 
! des Desktops (0), Gintin+2 
! braucht den Flag 14, der 
! das Desktop kreiert und 
! in Gintirt+4 wird die Baun- 
! adresse übergeben. 

I Objc_find funktioniert 
! nicht mit dem Mouse x,y,k- 
! Befehl aus BASIC, deshalb 
! eine AES-Routine. Diese 
! Mauskoordinaten werden 
! übergeben, heraus kommt der 
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Lpoke Addrin.A. ! Index des Objekts, auf dem 

Dpoke Gintin+4,Mx5£ ! die Maus steht. 

Dpoke Gintin+6,My% 

Gemsys A3 

*0.%=Dpeek(Gintout) 

Return 



Abb. 22: Das eigene Desktop 


Versuchen Sie einmal, Icons, Images und sonstiges Interessante 
in ein Desktop zu legen. Der Kreativität sind kaum Grenzen 
gesetzt. 


4.10 Die Bibliothek des Grafen 

Unter den diversen Einzelbibliotheken, die in AES zusammen¬ 
gefaßt sind, befindet sich eine adlige: Die Graf-Library. Wie’s 
bei feudalen Dingen manchmal so ist, befindet sich in dieser Bi¬ 
bliothek mehr Schein als Sein, soll heißen, viel unnötige Wir¬ 
kungen, wenig Effektivität. Insgesamt 10 Routinen finden wir 
hier: 
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GRAF_GROWBOX zeichnet ein sich automatisch stetig ver¬ 

größerndes Rechteck. 

GRAF SHRINKBOX zeichnet ein sich automatisch stetig ver¬ 
kleinerndes Rechteck. 

GRAF_MOVEBOX zeichnet ein sich automatisch stetig von 

einer Position zur anderen bewegendes 
Objekt. 

Alle drei Prozeduren sind meines Erachtens sinnlos, der Effekt 
ist zu schnell, als daß er Wirkung zeigt. Erlauben Sie mir. Sie 
bei Bedarf auf andere Literatur zu verweisen. 

GRAF RUBBERBOX Zeichnet "Hilfslinien" beim Vergrößern 

oder Verkleinern eines vorgegebenen 
Rahmens. 

GRAF_DRAGBOX Zeichnet "Hilfslinien" beim Bewegen eines 

vorgegebenen Rahmens. Hält den Mausz¬ 
eiger innerhalb dieses Rahmens fest. 

Diese zwei Prozeduren finde ich ganz witzig. Deshalb hier ihre 
Erläuterung: Übergeben wird bei <Graf_rubberbox> der mo¬ 
mentane x%- und der momentane y%-Wert, beides Koordinaten, 
die beim Vergrößern und Verkleinern unverändert bleiben. Zu¬ 
rückgegeben wird die neue Breite und die neue Höhe des Rah¬ 
mens. Während des Arbeitsvorgangs werden gestrichelte Rah¬ 
menhilfslinien gezeichnet, die nach dem Loslassen des Maus¬ 
knopfes wieder verschwinden. 

<Graf_dragbox> will alle vier Rahmenkoordinaten haben. 

Da es sich um eine Funktion handelt, die 
die Bewegung auf Grenzkoordinaten be¬ 
schränken kann, können diese noch ein¬ 
gegeben werden, zurück kommen die 
neuen Höhen- und Breitenwerte. Der die 
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Verschiebung begrenzende Rahmen wird 
wohl meistens der Bildschirmbereich sein, 
dann müssen also die Werte 0,0,640,400 
übergeben werden. 

Procedure Graf_rubberbox(GxX,GyX,GrwX,GrhX) 

Dpoke Gintin.GxX 
Dpoke Gintin-t-2,GyX 
Dpoke Gintir>+4,5 
Dpoke Gintin+6,5 
Gemsys 70 

*GrwX=Dpeek(Gintout+2) 

*GrhX=Dpeek(Gintout+4) 

Return 

I 

Procedure Graf_dragbox(GxX,GyX,GwX,GhX,RxX,RyX,RwX,RhX,GrxX,GryX) 

Dpoke Gintin.GwX 
Dpoke Gintin+2,GhX 
Dpoke Gintin+4,GxX 
Dpoke Gintin+6,GyX 
Dpoke Gintin+8,RxX 
Dpoke Gintin+10,RyX 
Dpoke Gintin+12,RwX 
Dpoke Gintin+14,RhX 
Gemsys 71 

*GrxX=Dpeek(Gintout+2) 

*GryX=Dpeek(Gintout+4) 

Return 


GRAF_WATCHBOX prüft, ob sich der Mauszeiger innerhalb 

eines Rahmens befindet. Diese Funktion 
ist ebensogut mit <On Menu Ibox/Obox> 
zu bewerkstelligen. 

GRAF_MOUSE Verändert den Mauszeiger. Auch hierfür 

hat GFA-BASIC einen eigenen Befehl. 

GRAF _MKSTATE Gibt Mauskoordinaten, Mausknopfstatus 

und Status der Tastatursondertasten zu¬ 
rück. Diese Funktion haben Sie bereits in 
der <Procedure Objc_find> kennen¬ 
gelernt. 
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GRAF _HANDLE Gibt das VDI-Handle zurück. Wird in 

BASIC nicht benötigt. 

Im folgenden stelle ich Ihnen ein kleines Beispiel vor, das mit 
Hilfe von <Graf_rubberbox> und <Graf_dragbox> eine Box 
verschiebt bzw. seine Größe verändert: 

' Programm: GRAF_LIB.BAS 

X5M00 

YX=100 

UX=100 

HX=100 

Box XX,YX,XX+UX,YX+HX 
Graphmode 3 
Do 

While Mousek=1 
XrX=XX 
YrX=YX 
UrX-WX 
HrX=HX 

Mouse MxX.MyX,XX 

If MxX>XX*UX-3 And MxX<XX+UX+3 And MyX>YX+HX-3 And MyX<YX+HX+3 
Gosub Graf_rubberbox(XX,YX,*U%,*H%) 

Else 

If MxX>XX And MxX<XX+WX-3 And MyX>YX And MyX<YX+HX-3 
Gosub Graf_dragbox(XX,YX,WX,HX,0 ( 0,640,400,*X%,*Y%) 

End) f 
Endif 

Box XrX,YrX,XrX+WrX,YrX+HrX 
Box XX,YX,XX+UX,YX+HX 
Uend 
Loop 

Ein anderes Beispiel findet sich im Resources-Bausatz am Ende 
dieses Buchabschnitts. Dort werden die Prozeduren in Fenstern 
verwandt, was wegen des um 19 Pixel verkleinerten Bildschirm¬ 
arbeitsbereichs etwas aufwendiger zu bewerkstelligen ist. 
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4.11 Menü mit mehreren Gängen 

GFA-BASIC hat nach meiner Meinung das Menü-Handling des 
AES vorzüglich übersetzt. Mit wirklich einfachen Befehlsfolgen 
ist alles das, was GEM-Menüs auszeichnet, erreichbar. Da 
braucht’s wohl keine Tips & Tricks. 

Eins aber möchte ich Ihnen nicht vorenthalten: nämlich die 
Chance, in das Menü auch etwas anderes als Text zu legen, z.B. 
Bildchen, ja sogar Icons. Einige Zeichenprogramme führen die 
Vorteile schon vor, indem etwa die verschiedenen Füllmuster im 
Menü ansprechbar sind. Gehen wir noch einen Schritt weiter 
und generieren ein Menü folgenden Inhalts: 



Tips 


Atari 


Mein Progra 


Desk Access 
Desk ...cess 
Desk Access 
Desk Access 
Desk 


zu 

Bios 

Xbios 

AES 


Abb. 23: Das Menü 


Staunen Sie nicht zu sehr, das ist gar nicht schwierig. Nur müs¬ 
sen wir hier auch mal wieder etwas tiefer ins AES einsteigen. 

Dieses Menü ist nicht mehr unter BASIC zu erstellen. Das 
Resource Construction Set muß her. 

Ziehen Sie erst einmal einen Menü-Baum herunter. Zusätzlich 
(obwohl Sie den gar nicht haben wollen) einen Free-Baum. In 
diesen bauen Sie jetzt alles das herein, was Ihnen wichtig, nütz¬ 
lich oder sinnvoll erscheint. Zum Beispiel ein Image. 
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Wenn Sie dieses auf das Clipboard legen, zum Menü-Baum um¬ 
schalten und dann das entsprechende Objekt in das Menü ein¬ 
binden, haben Sie den Effekt erreicht. Werfen Sie den 
Free bäum in den Papierkorb, fertig. 

Der Rest ist reinstes AES: 

Das, was als Menü ins Programm eingebunden werden soll, ist 
nun ein Objektbaum, der mit <rsrc_load> in den Speicher ge¬ 
bracht werden muß und dessen Adresse mit <Rsrc_load> erfragt 
werden muß. Aber: Zeichen des Objekts und Statusveränderun¬ 
gen geschehen mit speziellen AES-Routinen zum Menü: der 
MENU-Library. 

Ich gehe im folgenden davon aus, daß die Menü-Baum-Adresse 
grundsätzlich den Namen "Menu_adr%” erhält und als globale 
Variable definiert ist. 

<Procedure Menu_bar()> zeichnet den Menü-Baum auf den 
Bildschirm. Im Parameter "F.%" übergeben Sie eine 1, wenn das 
Menü sichtbar, eine 0, wenn es unsichtbar sein soll. 

Procedure Menubar(F.X) 

Dpoke Gintin.F.X 
Lpoke Addrin.MenuadrX 
Gemsys 30 
Return 

Es sind vier weitere Routinen vorhanden, die das Menü beein¬ 
flussen können: 


Procedure MenuienabletO.X,F.X) 

Dpoke Gintin,0.X 
Dpoke Gintir>+2,F.X 
Lpoke Addrin.MenuadrX 
Gemsys 32 
Return 

Hier wird ein Menüeintrag aktiviert bzw. deaktiviert, d.h. mit 
halber Helligkeit bzw. normal geschrieben. Im Parameter 0.% ist 
der Objektindex zu übergeben, das Flag F.% signalisiert bei 1 
den aktiven und bei 0 den inaktiven Eintrag. 
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Sie sehen, auch hier wird mit Objektindizes gearbeitet, anders 
als bei Herrn Ostrowski, der mit Menüeintragsindizes arbeitet. 
Es ist also angebracht, die Einträge im RCS mit Namen zu ver¬ 
sehen und mit dem Header-Converter umzuwandeln. 

Procedure Menu_tnormal(0.%) 

Dpoke Gintin.O.X 
Dpoke Gintin+2,1 
Lpoke Addrin.MenuadrX 
Gemsys 33 
Return 

Diese Prozedur normalisiert invertierte Menütitel. Auch hier 
wird lediglich der Objektindex des Titels übergeben. Falls Sie es 
einmal brauchen sollten (ich wüßte nicht, wozu), können Sie in 
Gintin+2 eine 0 einpoken, dann haben Sie einen Titel invertiert. 

Procedure Menu_text(O.X,T.ext$) 

Dpoke Gintin.O.X 
Lpoke Addrin.MenuadrX 
T.ext$=T.extS+Chr$(0) 

Lpoke Addrirt+4,Varptr(T.ext$) 

Gemsys 34 
Return 

Diese letzte Menü-Prozedur verändert den Textinhalt eines Ein¬ 
trags oder Titels. Auch sie will den Objektindex und zusätzlich 
den neuen Eintrag übergeben haben. Dies funktioniert besser als 
von Herrn Ostrowski vorgesehen, meine ich, denn in GFA- 
BASIC muß immer erst das alte Menü ausgeschaltet, der neue 
Eintrag in das Array eingegeben und dieses neue Menü wieder 
eingeschaltet werden. Hier reicht der Sprung zur <Procedure 
Menu_text>, um den neuen Eintrag im Menü sehen zu können. 

Versuchen wir nun ein Beispiel. Die Konstantennamen aus dem 
konvertierten "*.H"-File stehen in der <Procedure Rsc_data>. 
Das Laden des RSC-Files und Erfragen der Menübaum-Adresse 
erfolgt bei <Procedure Rsc_init>. Das ist alles bekannt. 
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Procedure Rsc_data 
Let Menu_treeX=0 !/* 
Tips%=4 

T1X=19 !/* OBJECT in 

T2%=20 !/* OBJECT in 

T3%=21 !/* OBJECT in 

T4X=22 !/* OBJECT in 

T5X=23 I/* OBJECT in 

Q.uitX=25 !/* OBJECT 
MyprogX=9 !/* OBJECT 
Ausgang%=37 


TREE */ 

TREE #0 V 
TREE #0 */ 
TREE #0 */ 
TREE #0 */ 
TREE #0 */ 
in TREE #0 */ 
in TREE #0 */ 


Return 


■ 


Procedure Rsc_init(N.ame$) 

Gosub Rsrc_load(N.ame$) 

Gosub Rsrc_gaddr(0,Menu t reeX,*Menu_adrX) 
On Menu Gosub Dojnenu 
Return 


Unser eigentliches Programm besteht dann nur aus den Sprüngen 
in die beiden Initiierungsprozeduren, dem Zeichnen des Menüs 
und einer Do..Loop-Schleife mit dem <On Menu>-Befehl. 

Gosub Rsc_data 

Gosub Rsc_init("Menu.rsc") 

Gosub Menubar 
Do 

Exit If E.flag! 

On Menu 
Loop 

Gosub Rsrc_free 

Erst in der Arbeitsroutine <Procedure Do_menu> wird es inter¬ 
essant: Wir erkennen nämlich, daß mit den herkömmlichen Da¬ 
ten aus dem Ostrowskischen Menu_Array wenig anzufangen ist. 
Nicht mehr in Menü(O) steht der Index des gewählten Menü¬ 
punktes, sondern in Menü(5). Und der Titel des Menüs, der we¬ 
gen der Übergabe an <Menu_tnormal> jetzt wichtig wird, ist in 
Menü(4) zu finden. 

Also: Falls der angewählte Menüeintrag den Index "Myprog%" 
hat, wird der Eintrag geändert. Beim Index "Ausgang%" wird das 
Exitflag auf True gesetzt, die Do..Loop-Schleife wird abgebro- 
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chen. Falls der zum angewählten Eintrag gehörige Menütitel den 
Index "Tips%" hat, wird der angeklickte Eintrag inaktiviert, es 
sei denn, er hat den Index "Q.uit%". Dann werden alle unter 
diesem Titel befindlichen Einträge wieder aktiviert. Mit dem 
Normalisieren des invertierten Menütitels beenden wir unser 
Menü. Ich hoffe, es hat Ihnen geschmeckt. 

Procedure Domenu 
If Menu(5)=MyprogX 

Gosub Menu_text(MyprogX," Dein Programm ") 

Ertdif 

If Menu(5)=AusgangX 
E.f lag!=True 
Endi f 

If Menu(4)=TipsX 
If Menu(5)=Q.uitX 
For NX=T1X To T5X 
Gosub Menu_ienable(N%,1) 

Next NX 
Else 

Gosub Menu_ienable(Menu(5),0) 

Endi f 
Endif 

Gosub Menu_tnormal(Menu(4),1) 

Return 


4.12 Fensterin 

Lieber Frank Ostrowski, so genial Ihr BASIC ist, so unverständ¬ 
lich sind Ihre Window-Routinen. So, wie das GFA-BASIC die 
Fenster vorgibt, sind sie sicherlich nur in Einzelfällen ver¬ 
wendbar. 

Aber Gemach, liebe Programmierer. Die Windtab-Tabelle und 
das GEM ermöglichen uns trotz alledem einen professionellen 
Umgang mit bis zu 4 eigenständigen Fenstern, mit Tricks sogar 
bis zu 7 bzw. 8 davon. 

Ein einzelnes Fenster so zu öffnen, wie es gebraucht wird, ist 
schlicht. In das Windtab-Array werden an die entsprechenden 



234 


GFA-BASIC Tips & Tricks 


Stellen die Koordination und die Randelementebelegung einge- 
poked und erst danach, wie im Handbuch beschrieben, die 
Openw-Routinen benutzt: 

1 Programm FENSTER1 .BAS 

I 

*************|_jbrary rout ir^************ 

Procedure Single_window(T.itle$,I.nfo$,R.and%,W.x%,W.y%,W.u%,W.h%) 

Titlew 1,T.itle$ 
lnfow 1,I.nfo$ 

Dpoke Windtatw-2,R.andX 
Dpoke Windtab+4,W.x% 

Dpoke Uirtdtab+6,W.y% 

Dpoke Windtab«-8,W.wX 
Dpoke Windtab+10,W.h% 

Openw 1 
Clearw 1 
Return 

Wenn Sie jetzt dieses Fenster mit cClosew 1> wieder schließen, 
kann es später jederzeit einfach mit cOpenw 1> erneut geöffnet 
werden. Windtab hat die eingepokten Werte nicht vergessen. 

Die einzelnen Parameter sind im Handbuch beschrieben bzw. für 
sich verständlich. Lediglich die Randkomponenten bedürfen 
einer Erläuterung. 

Ein GEM-Fenster besteht aus 12 Randkomponenten und dem 
Arbeitsfeld. Die Randkomponenten sind in einem Word enthal¬ 
ten, dessen erste 12 Bits über die Aktivierung oder Deaktivie¬ 
rung Auskunft geben: Ein gesetztes Bit heißt: Komponente ist 
vorhanden, ein leeres Bit (0) heißt: nicht vorhanden. Sie können 
also, wenn Sie einmal keine Lust haben, den Parameter R.and% 
der obigen Prozedur auszurechnen, für die Aktivierung aller 
Randkomponenten auch eingeben: 

R.and%=&Xlllll 1111111 

Das vorweg. Die Bedeutung der einzelnen Bits und deren um¬ 
gerechnete Integerwerte zeigen die folgende Tabelle und die 
Abbildung. Durch Addition der einzelnen Zahlen können Sie die 
Komponenten kombinieren. 
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1 

NAME 


2 

CLOSER 


4 

FÜLLER 


8 

MOVER 


16 

INFO 


32 

SIZER 


64 

ARROW 

UP 

128 

ARROW 

DN 

256 

VSLIDE 


512 

ARROW 

LF 

1024 

ARROW 

RT 

2048 

HSLIDE 



CLOSER MOUER NAME INFO FÜLLER 



Abb. 24: Fensterelemente 


Auch das Öffnen von mehreren Fenstern (bis zu 4 Stück) ist 
dank der Windtab-Tabelle unproblematisch. GEM verwaltet für 
jedes offene Fenster ein "handle", also eine Kennzahl. Diese ist 
für das Desktop, das (wie im Kapitel über das eigene Desktop 
erläutert) im Prinzip ebenfalls als Fenster verwaltet werden 
kann), die 0. Die weiteren Fenster erhalten Handles von 1 bis 4. 
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Mit Hilfe dieses Handle lassen sich später die Fenstermanipula¬ 
tionen exakt auf jeweils ein Fenster beziehen. In der Windtab- 
Tabelle sind 5 Bereiche vordefiniert, in denen die entsprechen¬ 
den Fensterparameter aufbewahrt werden: 


Windtab+00 bis Windtab+10 
Windtab+12 bis Windtab+22 
Windtab+24 bis Windtab+34 
Windtab+36 bis Windtab+46 
Windtab+52 bis Windtab+58 


Handlet 

Handle=2 

Handle=3 

Handle=4 

Handle=0 


4.12.1 Sesam öffne dich 

Damit sind die Grundlagen gelegt, um die multifunktionale 
Prozedur für das öffnen mehrerer Fenster zu generieren. Es 
werden dieselben Parameter wie oben übergeben. Dann aller¬ 
dings wird die Windtab-Tabelle daraufhin abgefragt, welches 
Handle noch nicht besetzt ist, also eine 0 als Eintrag hat. Die 
Fensterparameter werden nun nicht mehr bedingungslos in die 
ersten Felder der Windtab-Tabelle gepoked, diese werden mit 
dem Offset (Wi_handle%*12) errechnet. So können Sie sicher 
sein, daß immer ein freies Handle besetzt wurde. Wenn die 
Windtab-Tabelle voll ist, wird eine Alert-Meldung ausgegeben. 
Das Wi_handle% wird als globale Variable zurückgegeben. 

Eine Zeile in der untenstehenden Prozedur bedarf einer ge¬ 
naueren Erläuterung. Wenn Sie später so weit sind, ein derzeit 
nicht aktives Fenster anklicken zu können und damit zwischen 
Fenstern hin- und herschalten zu können, brauchen Sie die Rei¬ 
henfolge, in der die Fenster hintereinander aktiviert wurden. 
Die Fachleute reden immer von dem "Slot", dem Schlitz, in die 
die Manipulationsroutinen eingebaut werden müssen. Ich baue 
die Kennung für die Fensterreihenfolge in einen String <Slot$> 
ein, indem die einzelnen Handies hintereinander eingeschrieben 
werden. Jeweils die letzte in <Slot$> stehende Zahl kennzeichnet 
das aktuelle Window_handling. 
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*************l j brary routine************* 

Procedure Open_window(WtitS,Winf$,UatX,WxX,UyX,UwX,WhX) 
Local CX 
CX=0 

Ui_handleX=1 

Repeat 

Exit If Dpeek(Windtab+C%)=0 
Add C%,12 
Inc Wi_har>dleX 
Until Wi_handleX=5 

I 

If Wi_handleX<5 
Titlew Wi_handleX,Wtit$ 

Infow Wi_handleX ( Winf$ 

Opoke Windtab+Wi_handleX*12-10,WatX 
Dpoke Windtab+Wi_handleX*12-8,WxX 
Dpoke WindtatH-Ui_handleX*12-6,UyX 
Dpoke Windtab<-Ui_handleX*12-4,WwX 
Dpoke Windtab+Wi_handleX*12-2,WhX 
Openw Wi_handleX 
Clearw Ui_handleX 
Slot$=Slot$+Str$(Wi_handleX) 

Else 

Alert 1,"ICein Fenster mehr verfügbar!",1 J " OK ",Ret% 
Wi_handle%=4 
Endif 
Return 


4.12.2 Fensterbewegungen 

Jetzt wird’s spannend! Fenster wollen bewegt, verschoben, ver¬ 
größert und verkleinert werden. Mal ein nicht aktives Fenster in 
den Vordergrund bringen? Volle Größe und wieder auf das vor¬ 
herige Maß zurückbringen? Kein Problem mit GEM. Alle diese 
Funktionen werden automatisch überwacht und ausgeführt. Sie 
selbst brauchen sich nur um das zu kümmern, was innerhalb des 
Arbeitsbereichs passiert. 

Der Event-Handler bringt eine Message, die sich auf die Fen¬ 
sterbedienung bezieht: bei Ostrowski Menü(l). Folgende Werte 
für Menü(l) sind von Bedeutung: 
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20 WM _REDRAW 

21 WMTOPPED 

22 WMCLOSED 

23 WMFULLED 

24 WM_ARROWED 

25 WM_HSLID 

26 WM _VSLID 

27 WM _SIZED 

28 WM MOV ED 


Fensterbereiche müssen neu gezeichnet 
werden 

ein nicht aktives Fenster soll aktiviert 
werden 

das Closer-Element wurde angeklickt 
das Füller-Element wurde angeklickt 
einer der Pfeile oder ein Scrollbalken 
wurde angewählt. 

der horizontale Schieber wurde angewählt 
der vertikale Schieber wurde bewegt 
das Größenfeld wurde gewählt 
das Kopffeld des Fensters wurde gewählt 


Bei diesen Meldungen werden erläuternde Zusätze in Menü(4) 
bis Menü(8) abgegeben. Für alle Menü(l)-Werte gleich ist, daß 
Menü(4) immer das Wi_handle% trägt, auf das sich die Meldung 
bezieht. Überall da, wo die Fensterkoordinaten benötigt werden, 
also bei WM REDRAW, WM SIZED und WM MOVED, wer¬ 
den in Menü(5) bis Menü(8) die X- und Y-Koordinate und die 
Breite und Höhe des Fensters ausgegeben. WM_HSLID und 
WM_VSLID tragen in Menü(5) die Slider-Position (darauf 
komme ich noch zu sprechen), und WM_ARROWED spezifiziert 
in Menü(5) näher, welcher Pfeil nun gerade angeklickt worden 
ist. 


Dabei ist vielleicht interessant, daß GEM selbst nicht die ent¬ 
sprechende, zu der Meldung passende Routine ausführt, sondern 
nur diese Meldung bringt. Was Sie damit machen, ist Ihre Sache. 
Sie könnten auch den Closer- und Fuller-Mechanismus umdre¬ 
hen oder ganz andere Bedienungen auf die Randelemente legen. 
Wir bleiben aber beim Bekannten. 


Die <Procedure Window_handling> wird durch <On Menu 
Message Gosub Window_handling> aufgerufen. Mit der AES- 
Funktion <Wind_update> kann sichergestellt werden, daß das 
GEM die automatischen Routinen störungsfrei ausführen kann. 
Solange <Wind_update> durch Übergabe des Parameters 1 ein¬ 
geschaltet ist, kann weder der Mauscursor bewegt, noch die 
Menüleiste bedient werden. Auch Accessories sind nicht aus¬ 
führbar. Der Parameter 0 schaltet AES wieder ein. 
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Die Redraw-Routinen werden im nächsten Kapitel angespro¬ 
chen. Aus dieser Prozedur werden nur das Handle des Fensters 
und die Koordinaten des Bereichs, der neu gezeichnet werden 
muß, weitergegeben. 

Wenn ein nicht aktives Fenster mit der Maus angeklickt wurde, 
gibt AES eine Meldung aus. Dummerweise steht in Menü(4) aber 
nicht das Handle des neuen, sondern das des alten Fensters. Das 
brauchen wir aber gar nicht mehr. Also kommt <Wind_find> 
zum Tragen. Ähnlich wie bei <Objc_find>, das Sie schon ken¬ 
nengelernt haben, übergeben wir die Mauskoordinaten aus der 
AES-Funktion <Graf_mouse> und erhalten das Handle des 
Fensters unter dem Mauszeiger zurück. Dieses Fenster wird ge¬ 
öffnet, und jetzt kommt unser Slot in Aktion. Es wird nachge¬ 
schaut, an welcher Position dieses neue Fenster bisher geführt 
wurde, an dieser Position wird es im Slot gelöscht und an die 
letzte Stelle geschrieben. Damit ist sichergestellt, daß die vorhe¬ 
rige Reihenfolge der Fenster gewahrt bleibt. 

Full_window ist eine Schalterfunktion. Beim erstmaligen An¬ 
klicken wird das Fenster auf seine maximale Größe geöffnet, 
beim nächsten Anklicken soll es wieder an der vorherigen Posi¬ 
tion und in der vorherigen Größe erscheinen. Wir müssen also 
die Koordinatenwerte retten können und in einem Flag den 
derzeitigen Status kennzeichnen. Dienlich sind uns das Array 
Fullw%(4,4) und das Flag Fullw!. Zunächst werden die momen¬ 
tanen Fensterkoordinaten in das Array geschrieben. Diese erhal¬ 
ten wir aus der Windtab-Tabelle. Anschließend werden die 
Werte für die Fenstermaximalgröße in die Windtab-Tabelle ein- 
gepoked. Diese erhalten wir auch wieder aus dieser Tabelle: Es 
sind die Koordinatenwerte des Desktops, also des Handles 0. 
Wenn das Fenster wieder auf die alte Größe schrumpfen soll, 
werden einfach die Werte aus dem "Fullw%() ,, -Array zurück- 
gepoked. 

Jetzt könnte das so definierte Fenster mit 

Closew Wi_handle% 

Openw Wi_handle% 
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neu gezeichnet werden. Es geht aber komfortabler. AES enthält 
eine Funktion <Wind_set> (Sie haben diese beim DESKTOP 
schon lieben gelernt). Sie kann neue Fensterdaten übernehmen 
und zeichnet automatisch das Fenster entsprechend neu. 

Unsere <Wind_set>-Routine will folgende Parameter übergeben 
bekommen: das Wi_handle%, einen Flag und die Koordinaten 
bzw. Elemente, deren Veränderung bewirkt werden soll. 

Der Flag selektiert die gewünschten Veränderungen: 

1 Ändert die Randelemente des Fensters. Diese werden im 
dritten Parameter übergeben, der vierte bis sechste erhal¬ 
ten eine 0. 

2 Ändert den Namen des Fensters (werden wir nicht brau¬ 
chen, weil Titlew dasselbe einfacher macht). 

3 Ändert die Infozeile. Brauchen wir auch nicht. 

5 Ändert die Größe des Fensters. Das ist das Flag, das in der 
Fullwindow-Routine benötigt wird. 

8 Ändert die Position des horizontalen Sliders. 

9 Ändert die Position des vertikalen Sliders. 

10 Nach Eingabe eines neuen Wi_handle erzeugt AES die 
Message WM_TOPPED. Ich benutze diesen Flag-Wert 
nicht. 

14 Legt eine neue Adresse für das Desktop an. Sie haben 
dieses Verfahren bereits kennengelernt. 

15 Ändert die Größe des horizontalen Sliders. 

16 Ändert die Größe des vertikalen Sliders. 

Die Erläuterungen zu den Sliderflags siehe im Kapitel Slider. 

Die nächste Meldung betrifft das Schließfeld. Bisher hat der 
Atari ja alles selber übernommen, Ihr Programm wurde kaum 
von den Fensterroutinen berührt. Nun aber sollten Sie sicher¬ 
stellen, ob das Fenster wirklich geschlossen werden soll, ob 
eventuell Fensterinhalte gespeichert werden müssen oder ähnli- 
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ches. Deshalb wird zuerst in eine Routine gesprungen, die Sie 
selbst programmieren müssen. Alert-Boxen, Speicheralgorithmen 
usw. gehören dorthinein. Zurückgegeben werden muß aus dieser 
Prozedur ein Parameter mit dem Wert 1 für Beenden oder 0 für 
Weitermachen. 

Sie sehen, unsere Fenster-Story besteht aus drei Elementen: Zum 
einen aus den hier beschriebenen Routinen, die - einmal pro¬ 
grammiert - nicht wieder angerührt werden müssen, zum ande¬ 
ren aus den reinen Library-Routinen, also die Umsetzung der 
AES-Funktionen in GFA-BASIC, und zum dritten aus Proze¬ 
duren, die Sie für Ihr Programm jeweils neu spezifizieren müs¬ 
sen. Ich habe versucht, diesen dritten Bereich so einfach wie 
möglich zu halten. 

Das Fenster wird geschlossen, aus dem Slot der vorherige 
Wi handle-Wert ausgelesen und dann das Fenster mit dieser 
Handle-Nummer geöffnet. 

Der Slider- und Pfeilbenutzung widme ich ein eigenes Kapitel, 
deshalb später mehr. Es bleibt nur noch das Vergrößern/ 
Verkleinern und das Bewegen des Fensters zu ermöglichen. Sie 
wissen, daß Menü(5) bis Menü(8) die neuen Koordinaten be¬ 
inhalten. Übergeben wir diese doch einfach der Windtab-Tabelle 
und setzen mit <Wind_set>, Flag%=5, das veränderte Fenster. 
Genauso läuft’s auch, womit wir die Beweglichkeit von Fenstern 
voll im Griff haben. 

Eigentlich müßte das Schieben und das Verändern der Größen 
ja in zwei If..Endif-Bedingungen abgearbeitet werden. Einmal 
bleiben die X/Y-Koordinaten gleich, und es ändern sich nur 
Breite und Höhe des Fensters, das andere Mal ist es umgekehrt, 
die Breite und Höhe verändern sich nicht, die X/Y-Koordinaten 
jedoch wohl. Es ist eine Frage der Geschwindigkeit, ich meine 
jedoch, der Unterschied zwischen Aufteilung in zwei Bedingun¬ 
gen und der hier vorgestellten Zusammenfassung ist so minimal, 
daß er keine Rolle spielt. 
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******** 1 ^ j brary* Rout i ncn************** 

Procedure Window_init 
Dim FullwX(4,4) 

Slot$= H " 

On Menu Message Gosub Window_handling 
Let Fullu!=False 
Return 

I 

Procedure Window_handling 
Local NX.A.X 
awindupdate(l) 

If Menu(1)=20 ! REDRAW 

aRedrau(Menu(4),Menu(5),Menu(6),Menu(7),Menu(8)) 

Endi f 

If Menu(1)=21 ! TOPPED 

awind_find(*Wi_handleX) 

Openw Ui_handleX 

A.X=Instr(SlotS,StrS(Wi_handleX)> 

Slot$=Left$(Slot$,A.X-1 )+Mid$(SlotS,A.X+1 )+Str$(Wi_handleX) 

Endi f 

If Menu(1)=23 ! FULLED 

If Fullu!=False 
For NX=1 To 4 

Let FullwX(Wi_handleX,NX)=Dpeek(Windtab+Ui_handleX 

*12-(10-2*NX)) 

Dpoke Uindtab+Ui_handleX*12 -(10 -2*NX), 

Dpeek(Windtab+50+(N%*2)) 

Next NX 

Let Fullw!=True 
Else 

For NX=1 To 4 

Dpoke Windtab+Wi_handleX*12-(10-2*NX),FullwX(Wi_handle%,N%) 
Next NX 

Let Fullw!=False 
Endi f 

awind_set(Wi_handleX,5,Dpeek(Uindtab*Ui_handleX*12-8), 

Dpeek(Windtab*Wi_handleX*12-6), 

Dpeek(Windtab+Wi_handleX*12-4), 

Dpeek(Windtab*-Wi_handleX*12-2>) 

Endi f 

If Menu(1)=22 ! CLOSED 

SClose_window(* L egal X) 

If LegalX=1 
Closew Ui_handleX 
Slot$=Left$(Slot$,Len(Slot$)-1) 

Ui_handleX=Val(Right$(Slot$,1)) 
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Endi f 

Openw Wi_handleX 
Endi f 

If Menu(1)=24 ! ARROWED 

Endi f 

If Menu(1)=25 I HSLIO 

Endi f 

If Menu(1)=26 I VSLID 

Endi f 

If Menu(1)=27 Or Menu(1)=28 I SIZED und MOVED 

For NX=1 To 4 

Dpoke Windtab+(Wi_handleX*12 - dO-2*NX>) ,Menu(NX+4) 

Next NX 

awind_set(Wi_handleX,5,Menu(5) / Menu(6),MenuC7),Menu(8)) 
Endi f 

cäWindupdate(O) 

Return 



Abb. 25: Fensterin 


Jetzt können Sie all das einmal ausprobieren. Sie werden sehen, 
es funktioniert prächtig. Nur - alles, was an Fensterteilen bei 
Verschiebungen in die Arbeitsbereiche der Fenster gelegt wird, 
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bleibt dort liegen, es wird nicht neu gezeichnet. Es wird also 
eine Routine benötigt, die auch das Regenerieren der Fenster¬ 
arbeitszonen bewerkstelligt: REDRAW. 


Gosub Uindow_init 
Deffilt 1,2,4 
Pbox 0,0,640,400 
Gosub Open_windou("Fenster 1" 
Gosub Open windowC'Fenster 2" 
Gosub Open_wir>dow("Fenster 3" 
Gosub Open_uindow("Fenster 4" 
Gosub Open_windou("Fenster 5" 
Do 


•"',4095,50,50,200,200) 

••",4095,100,100,200,200) 

••••,4095,150,150,200,200) 

••••,4095,200,200,200,200) 

•"',4095,200,200,100,100) 


On Menu 

Exit If Mousek=2 
Loop 

For NX=0 To 4 
Closew NX 
Next NX 


Procedure Close_windou(RX) 

Alert 0,"Wirklich schließen?",2,"Ja|nein",KX 
If KX=1 
*RX=1 
Else 
*RX=0 
Endif 
Return 


4.12.3 REDRAW-Routinen 

GEM besitzt einen klugen Verwaltungsapparat für das Regene¬ 
rieren veränderter Bildschirmbereiche. Dieser Verwaltungsappa¬ 
rat arbeitet nach der Devise: Rationalisieren, wo’s nur immer 
geht. Dazu wurde eine Unterabteilung eingerichtet, die sich um 
die Rechtecklisten kümmert. Sie wissen, daß Rationalisierung 
nicht unbedingt was mit Geschwindigkeit, sondern eher mit 
Resources-Optimierung zu tun hat. So ist es auch hier. Ein Ver¬ 
fahren, das den gesamten Bildschirm rettet und bei Bedarf neu 
zeichnet, wäre zwar schneller, würde aber immer mindestens 32 
KByte verbrauchen. Die Rechteckliste ist langsamer, benötigt 
aber höchstens 10% des Speicherplatzes. 
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Sehen Sie sich die Abbildung an. Von den unterhalb des aktiven 
Fensters liegenden Fenstern brauchen immer nur Teilbereiche 
neu gezeichnet zu werden. Diese Teilbereiche können in einzelne 
Rechtecke untergliedert werden. Ein AES-interner Puffer ent¬ 
hält nun eine Liste all dieser Rechtecke, gegliedert nach den 
einzelnen Wi_handle. Wenn jetzt, Fenster für Fenster, diese 
Liste abgefragt, ein Clipping auf die Rechteckgrenzen gesetzt, 
der Fensterinhalt gezeichnet und das solange wiederholt wird, 
bis die Rechteckliste leer ist, dann ist das Ziel enorm rationell 
erreicht. 

AES besitzt die Funktion <Wind_get>, die vom Grundsatz mit 
<Wind_set> korrespondiert, d.h., all das, was hier verändert 
werden soll, kann dort erst einmal nach seiner Wertigkeit abge¬ 
fragt werden. Zusätzlich aber auch die Rechteckliste. Unsere 
GFA-Prozedur <Wind_get> hat ebenfalls 6 Parameter, das 
Wi_handle, einen Flag und vier Rückgabewerte. 

Folgende Flags sind möglich: 

4 Koordinaten des Arbeitsbereichs sind in den vier Rück¬ 
gabeparametern enthalten. 

5 Koordinaten der Gesamtgröße des Fensters (incl. des Ran¬ 
des) sind in den Rückgabeparametern enthalten. 

6 Die Koordianten der Gesamtgröße des vorherigen Fensters 
sind in den Rückgabeparametern enthalten. 

7 Die Koordinaten der maximalen Fenstergröße werden zu¬ 
rückgegeben. 

8 Position des horizontalen Sliders 

9 Position des vertikalen Sliders 

10 Wi_handle% des aktiven Fensters im ersten Rückgabe¬ 
parameter. 

11 X/Y Koordinaten, Höhe und Breite des ersten Rechtecks 
innerhalb der Rechteckliste werden zurückgegeben 

12 X/Y Koordinaten, Höhe und Breite des jeweils nächsten 
Rechtecks der Rechteckliste werden zurückgegeben. 

15 Größe des horizontalen Sliders 

16 Größe des vertikalen Sliders 
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Fenster 1 






kgm 


Fenster Z 


Rechteck 2 


Abb. 26 : Rechtecke mit der REDRAW-Routine 



















Objekte, Formulare und Resources 


247 


Für unsere Zwecke sind also die Flags 11 und 12 relevant. Fra¬ 
gen wir zunächst das erste Rechteck der Liste ab. Wir erhalten 
die X/Y-Koordinate der linken öderen Ecke und die Höhe und 
Breite. In einer While..Wend-Schleife mit der Bedingung "entwe¬ 
der die Breite oder die Höhe des Rechtecks müssen größer null 
sein", ein Rechteck muß also existieren, wird die Redraw- 
Routine abgearbeitet: 

Aus den Werten der REDRAW-Message, die Auskunft darüber 
geben, welcher Bereich neu zu zeichnen ist, und denen des 
<Wind_get>-Aufrufs, der Auskunft gibt, welche Teile dieses 
Bereichs nicht durch andere Fenster überdeckt sind, wird das 
Clipping-Rectangle, in das gefahrlos gezeichnet werden darf, 
gebildet. Dies geschieht durch Übergabe dieser Werte an die 
VDI-Routine Clipping_rectangle, die automatisch alle Zeich¬ 
nungen auf einen Bereich begrenzt, sowie Verlegen des Null¬ 
punkts für Grafikbefehle in die linke obere Ecke des geclippten 
Rechtecks. Dies kann einfach durch Poken dieser Werte in das 
64. und 66. Element der Windtab-Tabelle geschehen. 

Nachdem das Programm jetzt also weiß, wo es zu regenerieren 
hat, muß es noch wissen, was es denn regenerieren soll. Und das 
müssen Sie wieder selber machen. In einer User-Routine schrei¬ 
ben oder malen Sie einfach den gesamten Bildschirminhalt neu, 
das Clippen besorgt den Ausschnitt. 

Anschließend wird <Wind_get> mit dem Flag 12 aufgerufen, 
das die Koordinaten des nächsten Rechtecks zurückgibt. 

Das sieht alles einigermaßen langsam aus. Wenn man dann er¬ 
fährt, daß diese Redraw-Routine für jedes neu zu zeichnende 
Fenster erneut angelaufen wird, jeweils mit dem entsprechenden 
Wi_handle, kann einem schon schwindlig werden: Denn die 
Dauer des Fensteraufbaus ist zwar spürbar, aber trotz der irr¬ 
witzigen Rechnereien leistet der 68000 und sein Betriebssystem 
hier sein Meisterstück. 

Procedure RedrawCWi.h%,R.x%,R.y%,R.w%,R.h%) 

Local Gr_x%,Gr_y%,RetX,Rx_X,Ry_X,Rw_X,Rh_X,TbX,Th%,Tx%,TyX 
awi nd_get(Wi.h%,11,*Rx_X,*Ry_%,*Rw_%,*Rh_%) 

While Ru %+Rh %<>0 
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If Rw_X>0 And Rh_X>0 
acii p_rect(Rx_X,Ry_X,Rw_X,Rh_X) 

SU)ndget(Ui.hX,4,*Gr_xX,*Gr_yX,*Gr_wX,*Gr_hX) 

Dpoke Windtab*64,Gr_xX 
Dpoke Windtab+66,Gr_yX 
Gosub Redraw_manuell(Ui.hX,Gr_wX,Gr_hX) 

Endif 

S)Uind_get(Wi .hX,12,*Rx_X,*Ry_X,*Rw_X,*Rh_X) 

Wend 

aWind_set(0,10,Wi_handleX,0,0,0) 

Return 

Dies ist die komplette Redraw-Routine. Für Sie als Program¬ 
mierer gibt’s noch die "User-Prozedur", in die ich hier nur ex¬ 
emplarisch Fensterinhalte eingetragen habe. Da wir hier mit 
Clipping arbeiten, funktionieren Cls oder Clearw zum Löschen 
des Bildschirms nicht. Deshalb muß eine reine VDI-Funktion 
(Pbox) herangezogen werden. Diese hat jedoch den Nachteil, daß 
sie immer einen Rahmen zeichnet. Dieser kann nur mit einer 
weiteren VDI-Funktion ausgeschaltet werden: <Set_perimeter>. 
Flag!=0 schaltet den Rahmen aus, Flag!=-1 schaltet ihn wieder 
an. 


*****•*•!_ j brary_rout i ne************ 

Procedure Rahmen(FI) 

Dpoke Intin.F! 

Dpoke Contrl+2,0 
Dpoke Contrl+6,1 
Vdisys 104 
Return 

I 

Procedure Redrawmanuell(Ui_hX,dunmyX,dunmyX) 
Deffill 1,0 
Gosub Rahmen(0) 

Pbox 0,0,640,400 
If Ui_hX=1 

Print At(1,1);"Fenster 1" 

Endif 

If Wi_hX=2 

Print At(1,1);"Fenster 2" 

Endi f 

If Ui_hX=3 

Print At(1,1);"Fenster 3" 

Endi f 
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If Ui_hX=4 

Print At(1,1);"Fenster 4» 
Endif 
Return 


4.12.4 Slider und Arrows 

Zum Schluß unserer Betrachtungen über Fenster soll anhand der 
Schieber und Pfeile gezeigt werden, wie diese bedient werden. 
Viel interessanter sind jedoch kurze Scroll-Routinen, die für 
Textverarbeitungen, Editoren usw. aufgebaut werden können. 
Eine solche Routine folgt in Kürze. Sie funktioniert exakt so, 
wie hier beschrieben, auch in den komplexesten Editoren. Zuerst 
aber wie üblich etws zum Verständnis. 

Der Event_handler gibt drei verschiedene Scroll_messages aus: 
VSLID und HSLID beim Verschieben der vertikalen oder hori¬ 
zontalen Slider und WM_ARROWED beim Anklicken einer der 
vier Pfeile bzw. in eines der grauen Felder ober- bzw. unterhalb 
der Slider. 

Insgesamt sind damit also 10 verschiedene Meldungen selektier¬ 
bar, die folgende Ereignisse auslösen sollten: 

Verschieben des Bildschirminhalts nach oben bzw. unten 

- um eine Zeile 

- um eine Seite 

- um einen bestimmbaren Offset. 

Dasselbe gilt natürlich für die Verschiebungen nach rechts und 
links. 

Das Menu-Array gibt im Menü(l) die Indizes 24 für 
WM ARROWED, 25 für WM HSLID und 26 für WM VSLID. 
Menü(5) spezifiziert dann: bei V_SLID und H_SLID wird die 
Slider-Position ausgegeben, bei WM_ARROWED der Index des 
angewählten Fensterelements: 



250 


GFA-BASIC Tips & Tricks 


0 PGJJP 

1 PG_DOWN 

2 ARROWUP 

3 ARROW _DOWN 

4 PGLEFT 

5 PG_RIGHT 

6 ARROW LEFT 

7 ARROW RIGHT 


Seite nach oben 
Seite nach unten 
Zeile nach oben 
Zeile nach unetn 
Seite nach links 
Seite nach rechts 
Zeichen nach links 
Zeichen nach rechts 


GEM hat nicht vorgegeben, was eine Zeile oder eine Seite ist. 
Sie können eine Scan-Linie, also eine Pixel-Reihe als Zeile vor¬ 
sehen, eine Schriftzeile im 16-Pixel-Raster, eine im 8-Pixel- 
Raster, halbe Zeilen, Sinnvolles oder auch Quatsch. Ebenso kann 
eine Seitenlänge vom Programmierer definiert werden. 

Sie erhalten sowohl bei Größen- als auch bei Positionsverände¬ 
rungen die Mitteilung, daß die Slider-Balken (egal, wie groß das 
Fenster ist) eine Größe und eine Position zwischen 0 (oben bzw. 
links) und 1000 (unten bzw. rechts) haben. 

Damit gelten folgende Formeln: 

Slider-Größe 1000/(Gesamtgröße/sichtbarer Teil) 
Slider-Position 1000/(Gesamtgröße/erste Fensterzeile) 

Ein Text habe 80 Zeilen, davon sind die Zeilen 30 bis 50 auf 
dem Bildschirm sichtbar: 


Slider-Größe 1000/80/20 250 
Slider-Position 1000/80/30 375 

Nach Auflösen der Formel bekommt man die erste Fensterzeile: 

erste Fensterzeile = (Slider-Position*Gesamtgröße)/1000 

Die Ergebnisse der ersten beiden Formeln sind unserem be¬ 
kannten Wind_set zu übergeben, das die Randzonen des Fen¬ 
sters dann entsprechend korrigiert. Das Ergebnis der dritten 
Formel muß Ihrer User-Routine übergeben werden, damit der 
Text entsprechend gescrollt wird. 
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Nun aber in die Praxis: 

Das Window_handling in der vorherigen Fensterroutine war ja 
in den lf..Endif-Verzweigungen zu Slider-Meldungen noch 
nackt und bloß. Schreiben Sie wie folgt: 

' Programm: FENSTER2.BAS 

I 

Procedure Uindow_handling 
3Uind_update(1) 

If Menu(1)=24 ! ARROWED 

awind_get(Wi_handleX,4,*Wi_xX,*Wi_yX,*Wi_uX,*Wi_hX) 

aSlid(Menu(5),*A.X,*T.X,*St.X) 

SSIider(Wi_handteX,A.X,T.X,St.X) 
aRedrau(Wi_handleX,Wi_xX,Ui_yX,Wi_wX,Wi_hX) 

Endi f 

If Menu(1)=25 ! HSLID 

awind_get(Ui_handleX,4,*Wi_xX,*Wi_yX,*Wi_wX,*Wi_h%) 

aslid(Menu(5)+1000,*A.X,*T.X,*St.X) 

asiider(Wi_handleX,A.X,T.X,St.X) 

aRedraw(Wi_handleX,Ui_xX,Ui_yX f Wi_w%,Wi_h%) 

Endi f 

If Menu(1)=26 ! VSLIO 

awind_get(Wi_handleX,4,*Wi_xX,*Wi_yX,*Wi_wX,*Wi_h%) 
asiid(Henu(5)+2000,*A.X,*T.X,*St.X) 
asiider(Ui_handleX,A.X,T.X,St.X) 
aRedraw(Wi_handleX,Ui_xX,Wi_yX,Wi_wX,Wi_hX) 

Endi f 

awindupdate(O) 

Return 

Die drei Routinen, die das Sliderhandling verwalten, sind fast 
identisch: Es wird erst einmal wieder Wind_get nach der mo¬ 
mentanen Größe des Fensterarbeitsbereichs abgefragt. Der Index 
aus Menu(5), also entweder das eben bediente Randelement oder 
die neue Position der Slider wird der User-Prozedur Slid über¬ 
geben. Ich habe hier etwas herumgetrickst. Damit für Sie alles 
an Slider-Informationen innerhalb einer Prozedur abgearbeitet 
werden kann, kommen die Indizes zwischen 0 und 7 aus der 
WM_ARROWED-Message direkt herüber, die H SLID- und 
V_SLID-Meldungen habe ich für den V_SLID mit einem Off- 
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set von 1000 und für den H_SLID mit einem Offset von 2000 
versehen. Damit sind garantiert exakt ausfilterbare Werte in der 
User-Routine zu finden. 

Die <Procedure Slider> rechnet die aus der User-Routine zu¬ 
rückkommenden Werte für "Alles" (A.%), "Teil" (T.%) und 
"ersteZeile" (St.%) entsprechend der obigen Formeln in Slider- 
Koordinaten um und übergibt diese an Wind_set: einmal mit 
dem Index 9 für die Größe und einmal mit dem Index 16 für 
die Position. In der <Procedure Redraw» wird der Inhalt des 
Fensterarbeitsbereichs dann wie bekannt neu gezeichnet. 


Procedure Slider(W.hX,AllesX.TeiIX.ScreenanfangX) 
Sl_posX=1000/(AtlesX/ScreenanfangX) 
Sl_groesseX=1000/(AllesX/TeiIX) 
awind_set(U.hX,16,Sl_groesseX,0,0,0) 
awind_set(U.hX,9,Sl_posX,0,0,0) 

Return 


Das Beispiel für diese Library-Routinen, das ich Ihnen jetzt 
vorstelle, könnte einer Textverarbeitung als Scrollroutine dienen. 
Das Fenster wird geöffnet, ein Text von 100 Zeilen wird simu¬ 
liert und zwei Variablen <Top_line%> für die erste Bildschirm¬ 
zeile und "Base line%" für die letzte Textzeile mit den entspre¬ 
chenden Werten belegt. 

Gosub OpenwindowC'Fenster 1","",4095,50,50,300,300) 

I 

Dirn Text$(100) 

Top_line%=1 
Base_line%=100 

For NX=Top_line% To BaselineX 

Let TextS(N%)="Dies ist Zeile "+Str$(NX) 

Next NX 

i 

Oo 

On Menu 

Exit If Mousek=2 
Loop 
Closew 1 

Zwei User routinen managen das Scrolling: "Redraw" habe ich 
Ihnen schon vorgestellt, hier ist sie entsprechend dieser Aufgabe 
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ausgearbeitet, d.h. sie zeigt immer die der Fenstergröße ent¬ 
sprechende Länge mit dem der Slider-Position entsprechenden 
Anfang des Textes. 

Die <Procedure Slid> verändert den Wert der Variablen 
Top_line%: Seitenverschiebungen verändern die Top_line% um 
die Anzahl der sichtbaren Zeilen, Zeilenverschiebungen redu¬ 
zieren bzw. erhöhen sie um 1. Bei V SLID und H SLID wird 
entsprechend der obigen Formel die neue Top_line% errechnet - 
natürlich nicht, bevor der Trickoffset von 1000 bzw. 2000 wie¬ 
der subtrahiert wurde. 


Zurückgegeben wird immer die jeweilige Gesamtgröße des Do¬ 
kuments, meistens eine globale Variable, der sichtbare Teil des 
Dokuments, abhängig von der momentanen Fenstergröße und die 
eben errechnete Top_line%, also die erste sichtbare Dokumen- 
tenzeile. In dieser Weise ist die Userprozedur für fast alle An¬ 
wendungen gleichermaßen zu benutzen. 

Ich habe Ihnen nur die Routinen für das vertikale Scrolling vor¬ 
geführt. Klar, daß absolut kein Unterschied bei den horizontalen 
Scroll-Balken zu melden ist, oder? 


Procedure Slid(FX,Ret1X,Ret2X,Ret3X) 
Local H.oeheX 
H.oeheX=Int(Ui_hX/16) 

If FX=0 

Sub ToplineX,H.oeheX 
Else 
If FX=1 

Add ToplineX,H.oeheX 
Else 
If FX=2 
Dec ToplineX 
Else 
If FX=3 

I nc T op_ l i neX 
Else 
If FX=4 
Else 
If FX=5 
Else 
If FX=6 


! Pg up 

• Pgdn 

! Uparrow 

! Dnarrow 

• Pglf 
\ Pg rt 

! Lf arrou 




254 


GFA-BASIC Tips & Tricks 


Else 

If FX=7 ! Rt_arrou 

Else 

If FX>=2000 ! VSLID 

Sub FX.2000 

Top_l ineX=Base_l ineX*(FX/1000) 
Else 

If FX>=1000 ! HSLID 

Sub FX,1000 
Endi f 
Endi f 
Endi f 
Endi f 
Endi f 
Endi f 
Endi f 
Endi f 
Endi f 
Endi f 

If Top_lineX<1 
Top_lineX=1 
Else 

If Top_lineX>Base_lineX 
T op_lineX=Base_lineX 
Endi f 
Endi f 

*Ret1X=Base_lineX 
*Ret2X=H.oeheX 
*Ret3X=Top_lineX 
Return 


Procedure Redrawjnanuell(Wi_hX,ZeichenX,ZeilenX) 
If Ui_hX=1 
Deffill 1,0 
Gosub Rahmen(O) 

Pbox 0,0,640,400 

ZeilenX=Int(ZeilenX/16) 

If Top_lineX+ZeilenX>Base_lineX 
ToplineX=Base_lineX-ZeilenX 
Endi f 

For NX=Top_lineX To ToplineX+ZeilenX 
Print At(1,NX-Top_lineX+1);Text$(NX); 

Next NX 
Endi f 
Return 
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4.12.5 Sieben Fenster? Das geht doch gar nicht! 

Gemach! Es geht wohl. Auch wenn Sie’s sicher selten, vielleicht 
nie gebrauchen werden, möchte ich Ihnen die Möglichkeit nicht 
vorenthalten, insgesamt bis zu sieben Fenster gleichzeitig of¬ 
fenzuhalten. Aber: Wirklich nur sieben. Ein Deskaccessory, das 
ein neues Fenster öffnen möchte, wird unweigerlich Fehlermel¬ 
dungen, vielleicht sogar Bomben produzieren. Und noch eine 
Warnung ist angebracht. Die Digital-Research-Leute haben sich 
mit dieser GEM-Version viel Mühe gemacht. Aber einiges ist 
dennoch einigermaßen schnodderig programmiert. So auch der 
Umgang mit den Fenster-Handies. Nicht immer geht alles so 
glatt, wie man es gerne möchte. Ein Fehlerchen bei der Pro¬ 
grammentwicklung gemacht, und sang- und klanglos geht der 
Atari in die Knie. Wenn Sie Glück haben, können Sie gerade 
noch abspeichern, meistens wohl auch das nicht mehr. Also, 
seien Sie aufmerksam, die Reset-Taste und Ihre Nerven werden 
es Ihnen danken. 

Mit seiner speziellen Fensterroutine über die Windtab-Tabelle 
hat Frank Ostrowski die Fensteranzahl auf 4 begrenzt. Um mehr 
zu bekommen, müssen wir direkt in die AES-Funktionen hin¬ 
eingehen und Fenster so öffnen, wie auch die C- und Pascal- 
Programmierer es machen müssen. 

Das geht in drei Schritten vor sich: 

Mit Hilfe der Funktion <Wind_create> wird Speicherplatz für 
das Fenster reserviert, das Handle zurückgegeben und die maxi¬ 
mal mögliche Fenstergröße in den Koordinatenparametern sowie 
die Bedienelemente im W.f%-Parameter bestimmt. 

Procedure Wind_create(W.ihX,U.fX,W.xX,W.yX,W.wX,U.hX) 

Dpoke Gintin.W.fX 
Dpoke Gintin+2,W.xX 
Dpoke Gintin+4,U.yX 
Dpoke Gintin+6,W.wX 
Dpoke Gintin+8,W.hX 
Gemsys 100 

*W.ihX=Dpeek(Gintout) 

Return 
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Danach wird mit <Wind_set> mit Hilfe der Flags 2 und 3 der 
Fenstertitel sowie der Inhalt der Info-Zeile übergeben. Das läuft 
nun aber etwas anders ab als in der Ihnen bekannten 
<Wind_set>-Version, weil Name und Infozeile als Adresse und 
damit als Longword gebraucht werden. Vergessen werden darf 
nicht die Konvention des O-Byte am Stringende. 

Procedure Wir>d_set(W. ihX,U. f%,U.x%,U.w%,W.h%) 

Dpoke Gintin.U.ihX 
Dpoke Gintin+2,U.fX 
Lpoke Gintin+4,U.xX 
Gemsys 105 
Return 


Das Sesam-öffne-dich ist jetzt die neue AES-Funktion 
<Wind_open>, die das wi-handle und die wirklichen Fenster¬ 
ausmaße übergeben bekommen muß. 

Procedure Wir*d_open(U. ihX,U.xX,U.y%,U.wX,U.hX) 

Dpoke Gintin.W.ihX 
Dpoke Gintirt+2,U.xX 
Dpoke Gintin+4,U.yX 
Dpoke Gintin+6,U.wX 
Dpoke Gintin+8,W.hX 
Gemsys 101 
Return 

Jetzt funktioniert aber nichts mehr von den bekannten Ostrows- 
kischen Fensterroutinen. Angefangen beim Hintergrundaufbau 
des Fensterarbeitsbereichs bis hin zum endgültigen Schließen der 
Fenster darf jetzt nur nun mit reinen AES-Funktionen gearbei¬ 
tet werden. 

Das Löschen geschieht mit Hilfe zweier Gemsys-Aufrufe. Der 
eine, <Wind_close>, löscht das Fenster vom Bildschirm, behält 
aber das Handle und den Speicherplatz, der andere, 
<Wind_delete>, löscht das Handle und den Speicherplatz, jedoch 
nicht die Bildschirmzeichnung. Ich habe beide Aufrufe in einer 
Prozedur zusammengeschlossen, weil es wohl kaum Gründe gibt, 
das eine nicht ohne das andere zu tun. 




Objekte. Formulare und Resources 


257 


Procedure Wind_delete(W.ih%) 
Dpoke Gintin,U.ihX 
Gemsys 102 
Gemsys 103 
Return 


Der Bildhintergrundaufbau, also das "Clearw", wird mit Hilfe 
des Pbox-Befehls gemacht, der aus <Wind_get> die genauen 
Größenparameter erhält. Die Rahmenprozedur ist bekannt. 

Procedure Uind_clear(Ui.hX,U.xX,U.yX,U.wX,U.hX) 

Deffill 1,0 
Gosub Rahmen(-I) 

Pbox U.xX-1,W.yX-1,U.xX+U.wX,U.yX+U.hX 
Gosub Rahmen(O) 

Return 

Und damit genug der Vorrede. Mit dem Listing "Fenster3.Bas" 
werden jetzt 7 Fenster gezeichnet: 

WxX=50 

WyX=50 

Do 

S)Uind_create(*Ui_handleX,&X111111111111,0,19,640,381) 

Exit If Ui_handteX<0 Or Wi_handleX>10 

N.ame$="Testfenster"+Chr$(0) 

3Uind_set(Ui_handleX,2,Varptr(N.ame$),0,0) 

I.nfo$="Dies ist Fenster Nr. H +Str$(Ui_handleX)+ChrS(0) 
auind_set(Wi_handleX,3,Varptr(I.nfo$),0,0) 
o)U i nd_open(Ui _hand l eX, WxX, UyX, 400,200) 
3Wind_get(Wi_handleX,4,*XX,*YX,*WX,*HX) 
auind_clear(Ui_handleX,XX,YX,UX,HX) 

Add UxX,10 
Add UyX,10 
Loop 
Do 

Exit If Mousek 
Loop 

For NX=1 To 7 
3Uind_delete(N%) 

Next NX 
End 
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Abb. 27: 7 Fenster 


4.13 Tutti-Frutti: Algorithmen für einen Resources- 
Baukasten 

Hier könnte ja ein schönes, komplettes Progrämmchen stehen, 
das die Objektkonstruktionen für GFA-BASIC aufbereitet, ein 
Resource-Construction-Kit wie das RCS, nur eben auf unser 
Programmiermedium GFA-BASIC zugeschnitten. Aus recht¬ 
lichen Gründen solls nicht sein, also gibt’s nur den Hauptgang, 
Vorsuppe und Nachspeisen müssen Sie selber drumherumkochen. 
Vielleicht gibt’s das RCK ja bald in der Data-Welt-Edition? 

Aus diesem Grund bitten wir Sie auch, unmögliche Eingaben zu 
unterlassen, da diese von der Grundversion des Programms nicht 
abgefangen werden. Hüten Sie sich also davor, die Objekte über 
die Grenzen der Wurzelbox hinaus zu bewegen oder zu ver¬ 
größern. Bei der von Ihnen selbst vervollständigten Version 
sollten Sie diese Möglichkeiten abfangen. 
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Sie wissen jetzt schon soviel über die Datenstrukturen von 
GEM-Objekten, daß vorerst eigentlich nicht mehr viel gesagt 
werden muß. Deshalb die Beschränkung auf das Wesentliche: 

Unser Resources-Baukasten erscheint in einem bildschirmgroßen 
Fenster. Zunächst ist nichts sichtbar außer dem Wurzelobjekt, 
eine BOX mit etwas dickerem Rand. Mit der HELP-Taste 
bekommen Sie ein Formular (hier allerdings nicht GEM, sondern 
handgemacht) auf den Bildschirm, mit dessen Hilfe Sie das 
einzugebende neue Objekt spezifizieren können. Nach einem 
Klick auf die linke Maustaste erscheint das Objekt, Sie können 
es dann mit der Maus dorthin plazieren, wo Sie es haben wollen. 
Verschiebungen und Vergrößerungen mittels der Graf library 
sind natürlich jederzeit möglich. 

Im Grundbaukasten sind weder IMAGES noch ICONs enthalten. 
BOXEN, STRINGs und TEXTE sind selbstverständlich definier¬ 
bar. Ich denke aber, mit Hilfe dieses Grundbaukasten werden 
Sie das darüber hinaus Wünschenswerte problemlos selbst basteln 
können. 


■ **************************************** 
1 * Resources-Baukasten: Grundeletnente * 


Rsc$=SpaceS(10000) 
Rsc_adrX=Varptr(Rsc$) 

I 

ObjectS=Space$(100*24) 
TreeX=Varptr(Object$) 

I 

Tedinfo$=Space$(20*28) 
Tedinfo_adrX=Varptr(TedinfoS) 

I 

Rs_string$=Space$(1000) 

String_adrX=Varptr(Rs_stringt) 

I 

Dim IndS(100) 

Tree_counterX=0 

String_counterX=0 

Ted_counterX=0 

IndexX=0 


! Der Speicherplatz für den 
! RSC-File 

! Speicherplatz für die 
! Objectstruktur 

! Speicherplatz für die 

• Tedinfostruktur 

• Speicherplatz für die 
! Strings und Texte 

! 100 Objekte 
! laufende Zähler 
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Ted_indexX=0 

I 

Titlew 1, ,m ! ein bildschirmgroßes 

Gosub 0pen_wir>dow(1,0,0,19,639,380) ! Fenster wird eröffnet 

I 

1 Objektstruktur der Wurzel 
Gosub Def_obspec(0,2,1,1,1,0) 

Gosub Make_obj ect(20,0,&H10,Ob_spec%,0,22,500,300) 

On Menu Key Gosub Kreuzung 


Der vorgestellte Baukasten geht davon aus, daß die Benutzer¬ 
führung von Ihnen komplettiert wird. Deshalb werden hier die 
einzelnen Objektdefinitionen per Tastatur in eine Box eingege¬ 
ben, die alle Eintragsvarianten ermöglicht. Gestartet wird die 
entsprechende Prozedur, also das Einfügen neuer Objekte in den 
Baum, durch Betätigen der Help-Taste. 


4.13.1 Objekte bewegen 

Die Hauptverzweigungen erfolgen innerhalb einer Do..Loop- 
Schleife, die abfragt, ob der Mauszeiger über einem Objekt steht 
und über welchem. Nach Anklicken der linken Maustaste kann 
dieses Objekt in der rechten unteren Ecke vergrößert oder ver¬ 
kleinert und am oberen Rand verschoben werden. Außerdem 
wird beim Anwählen der Help-Taste in der <Procedure Kreu- 
zung> das Generieren eines neuen Objekts eingeleitet, mit der 
Funktionstaste 10 geht’s ab zum Speichern des RSC-Files. 

Do 

On Menu 

Gosub Objc_find(*0b%) 

I 

While Mousek=1 
Mouse Mx%,My%,K% 

For N%=0 To IndexX 

X. tX=Dpeek(TreeX+(24*NX)+16) 

Y. tX=Dpeek(TreeX+(24*NX)+18) 

W.tX=Dpeek(TreeX+(24*N%)+20) 

H.tX=Dpeek(TreeX+(24*NX)+22) 


! Damit wir immer wissen, wo 
! wir sind! 

! Maustastendruck zum Ver- 
! schieben oder Vergrößern der 
! Objekte. Der Baun wird nach 
! Koordinaten durchsucht. Bei 
! Übereinstimmung von Objekt- 
! Koordinaten und Mauszeiger 
! passiert folgendes: 



Objekte, Formulare und Resources 


261 


If MxX>X.tX+W.tX-5 And MxX<X.tX+W.tX+5 And MyX>Y.tX+H.tX-5 

And MyX<Y.tX+H.tX+5 

Gosub Graf_rubberbox(X.tX,Y.tX+19,*GH.tX,*Gh.tX) 

Dpoke TreeX+(24*NX)+20,Gw.tX ! Wenn die rechte untere Ecke 

Dpoke TreeX+(24*NX)+22,Gh.tX I angeklickt wurde, dann ver- 

Gosub Objc_draw I gröBern, neue Werte einpoken 

Endif I und neu zeichnen. 

If MxX>X.tX And MxX<X.tX+W.tX And MyX>Y.tX-3 And My%<Y.tX+3 
Gosub Graf_dragbox(X.tX,Y.tX+19,W.tX,H.tX,*Gx.tX,*Gy.tX) 


Dpoke TreeX+(24*NX)+16,Gx.tX 
Dpoke TreeX+(24*NX)+18,Gy.tX 
Gosub Objcjdraw 
Endif 
Next NX 
Wend 
Loop 


! Wenn oberer Rand angeklickt 
I wurde, dann verschieben, neue 
I Werte einpoken und neu 
I zeichnen. 


Procedure Kreuzung 

If Menu(14) Div 256=68 
Gosub Save_rsc 
Endi f 

If Mer>u(14) Div 256=67 
Gosub Load_rsc 
Endif 

If Menu(14) Div 256=98 
Gosub Define_object 
Endi f 
Return 


! Funktionstaste 10 
• Abspeichern 

! Ist nicht eingebaut 


! HELP-Taste, es geht 
! um ein neues Objekt 


4.13.2 Objekte definieren 

Diese nächste Prozedur ist einigermaßen langweilig, zugegeben. 
Innerhalb eines Rahmens ist eine Maske vorgegeben, die Sie mit 
Hilfe des <Form_input> zu füllen haben. Ich denke, an diesem 
Punkt ist Ihrer Kreativität keine Grenze gesetzt, es liegen ihr 
aber auch keine nicht überwindlichen Hindernisse im Weg. 

Zu definieren sind folgende Strukturwerte von Objekten, 
Tedinfos und Strings: 

■ Der Typ des Objekts als Zahlenwert zwischen 20 und 31. 

■ Die Flags des Objekts als Zahlenwert zwischen 0 und 256. 
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■ Der Anfangsstatus des Objekts, und zwar als Zahlenwert 
zwischen 0 und 32. 

■ Eventuell der Charakter, den ein Objekt "BOXCHAR" 
enthalten soll. 

■ Rand und Füllmuster für das Objekt, wenn es keinen Zei¬ 
ger auf andere Strukturen enthält. Der Rand als Zahl zwi¬ 
schen 0 und 256, das Muster als Zahl zwischen 0 und 15. 

■ Falls das Objekt vom Typ STRING oder BUTTON ist, 
muß der String, der enthalten sein soll, übergeben werden 
können. Er muß ein O-Byte als Abschluß haben. 

■ Und last but not least die aus Text, Maske und Gültig¬ 
keitsangaben zusammengesetzten Texte bei Objekten mit 
Zeiger auf eine TEDINFO-Struktur. Diese wollen ein 
bißchen sensibel behandelt werden: Der "Text" ist nur ein 
Eintrag, außer dem abschließenden O-Byte kann er so 
bleiben wie eingegeben. 



Objektnane 


Bb_nrl 


den Koordinaten der linken oberen Ecke des Objekt! 


Objekttyp 

Dbjektflag 

Objektstatus 

iCharakter 

Randstärke 

:Füllnuster 

String 

Edittext 

Editvalid 

Editnaske 


26 zwischen 20 und 32) 

4 (0,1,2,4,8,16,32,64,128,256) 

16 0,1,2,4,8,16,32) 

(irgendein ASCII-Zeichen) 

_ (0 bis 254) 

(0 bis 7 und 8 bis 15) 


Text! _ 


XXXXXXXXXXXXXX 


ZZZZjEh 

lausklick an 


Abb. 28: Resources-Baukasten 
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Die Validation-Einträge bestehen ausschließlich aus vordefi¬ 
nierten Zeichenfolgen. Da alle RCS den Standard gesetzt haben, 
die Welle als Platzhalter zu nehmen, wird dieser wieder 
herausgefiltert, so daß am Ende wirklich nur die Validation- 
Parameter übrigbleiben. Der übrigbleibende Rest des Validation- 
Strings bestimmt die Maskenlänge, die in den restlichen Pro¬ 
grammzeilen dahingehend begrenzt wird. 

Der Name des Objekts kann eingegeben werden, muß aber 
nicht, und nach der Sicherheitsabfrage geht’s zum Aufbau der 
Objektstruktur. 


* Programm: RCSKIT.BAS 

I 

Procedure Objektdefinitionen 
Sget Screent 
Deffilt 1,2,1 
Pbox 100,100,540,360 
Print At(15,8);"Objekttyp : 
Print At(15,9);"Objektflag : 
Print At(15,10);"0bjektstatu9 
Print At(15,11),-"Charakter 
Print At(15,12);"Randstärke 
Print At(15,13);"Füllmuster 
Print At(15,14);"String 
Print At(15,15);"Edittext 
Print At(15,16);"Editvalid 
Print At(15,17);"Editmaske 
Print At(15,19);"0bjektname 

Start: 

Print At(31,8); 

Form Input 2,Typt 
Typ%=Val(Typt) 

Print At(31,9); 

Form Input 3,Flagt 
Ftag%=Val(Flag$) 

Print At(31,10); 

Form Input 2,Statut 
Status%=Val(Statut) 

Print At<31,11); 

Form Input 1,Chart 
Chr=Asc(Chart) 

Print At(31,12); 


(zwischen 20 und 32)" 
(0,1,2,4,8,16,32,64,128,256)» 
(0,1,2,4,8,16,32)» 

(irgendein ASCII-Zeichen)" 

(0 bis 254)" 

(0 bis 7 und 8 bis 15)" 

II 


• Obtype 


! Ob_flag 


! Ob state 


! Ob char 
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Form Input 3,RandS 
Rand%=Val(RandS) 

Print At(31,13); 

Form Input 2,FuetlS 
MusterX=Val(FuelIS) 

Print At<29,14); 

Form Input 15,StringS 
S t r i ngS=St ringS+Ch r$ (0) 

I 

Print At(29,15); 

Form Input 39,E.textS 
E.textS=E.textS+ChrS(0) 

I 

Print At(29,16); 

Form Input 39,E.validS 
T emp$=Space$(Len(E.textS)-1) 

Lset TempS=E.validS 
For NX=1 To Len(TempS) 

Exit If MidS(Temp$,NX,1)<>"-" 

Next NX 

E.validS=MidS(Temp$,NX)+ChrS(0) 

I 

Print At(29,17); 

Form Input 39,E.mask$ 

TempS=SpaceS(Len(E.textS)-1) 

Lset TempS=E.mask$ 

E.mask$=Hid$(Temp$,NX)+ChrS(0) 

I 

Print At(29,19); 

Form Input 14,IndS(IndexX) ! Objektname 
Print At(15,22); 

Input "alles OK? J/N",AS 
If A$="n" 

Goto Start 
Endif 

Sput ScreenS 
Return 


! Rand für Ob_spec 

! Muster für Ob_spec 

! Rs_string 


4.13.3 Objekte spezifizieren 

Nun wird’s schon spannender. Uns fehlen noch einige 
Objektspezifikationen. Zum einen natürlich die Koordinaten. 
Breite und Höhe werden zunächst vorgegeben, sie können ja mit 
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Hilfe der Graf_library jederzeit verändert werden. Die X%- 
und Y%-Koordinaten werden mittels eines Mausklicks geliefert. 

Nun wird noch die Ob_spec-Definition benötigt. Sie wissen: Für 
unterschiedliche Objekttypen müssen unterschiedliche Ob specs 
geliefert werden. Bei BOX, IBOX und BOXCHAR wird ein 
Longword mit den Erläuterungen zu Rand, Muster etc. ge¬ 
wünscht. Um diese zu liefern, ist nun unsere alte Def_obspec- 
Routine bestens geeignet. 

BUTTON und STRING-Objekte wollen die Adresse des Strings 
haben. Wie Sie wissen, liegt diese in einem separaten Speicher¬ 
raum, hintereinander aufgereiht, aber gemischt mit den 
Stringinformationen zu den TEDINFO-Strukturen. Was tun? Erst 
einmal sorgen wir dafür, daß die Länge des Strings geradzahlig 
ist, damit wir keine Peek-oder Poke-Fehlermeldung erhalten. 
Bei Bedarf wird also einfach ein Chr$(0) angehängt. Dann wird 
mittels des Bmove-Befehls der String ab Anfangsadresse bis zu 
seiner Gesamtlänge in den nächsten freien Platz des (bekanntlich 
reservierten) Stringspeicherraumes verschoben. Dieser freie Platz 
wird durch den Zähler <String_counter%> verwaltet. Die Ob¬ 
jektspezifikation Ob_spec ist demnach die absolute Adresse des 
Strings. 

TEXT, BOXTEXT, FTEXT und FBOXTEXT- Objekte benöti¬ 
gen in Ob_spec die zugehörige TEDINFO-Adresse, in der wie¬ 
derum die Adresse der drei Strings erwartet wird. Diese drei 
Strings fassen wir zu einem zusammen (das können wir ja, weil 
sie auch zusammenhängend in den Stringspeicher eingebaut wer¬ 
den) und begradigen die Länge. Das Verschieben in den String¬ 
speicher läuft wie oben. In der <Procedure Tedinfo> wird nun 
diese Struktur gefüllt. Der nächste freie Speicher - absolut! - 
wird errechnet aus der TEDINFO-Anfangsadresse plus dem 
Verwalter Ted_counter%. Diese Struktur kennen Sie, ich gehe 
nur in zwei Punkten darauf ein: Font% und Just% habe ich der 
Einfachheit halber vorbelegt. Sie können diese Werte natürlich 
ebenfalls veränderlich machen. Auch die Musterfarbe ist vorbe¬ 
legt, für sie gilt dasselbe. Die in die ersten drei Longwords ein- 
zupokenden Adressen sind: der Textanfang, also der Anfang des 
zugehörigen Strings, der Maskenanfang, also der Anfang des zu- 
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gehörigen Strings zuzüglich der Länge des Textes, und der Vali¬ 
dationsanfang, also Stringanfang plus Textlänge plus Masken¬ 
länge. 

Die zugehörige TEDINFO-Adresse wird also Ob_spec über¬ 
geben, damit sind die hier zu erläuternden Varianten fertig. 
ICONS und IMAGES würden hier die Anfangsadressen der zu¬ 
gehörigen Strukturen haben wollen, das sei - wie gesagt - Ihnen 
überlassen. 

Alle Objektspezifikationen sind nun bekannt, alle Zähler sind 
auf ihre neuen Werte gesetzt, das Objekt kann in den Baum ein¬ 
gebaut werden. 


Procedure Define_object 
Gosub Objektdefinitionen 

• 

Repeat 

Until Mousek=1 

Ob_xX=Mousex 

Ob_yX=Mousey 

I 

If TypX=20 Or TypX=25 Or TypX=27 
Gosub Def_obspec(ChrX,RandX,1,1.MusterX,1) 

Endif 

I 

If TypX=26 Or TypX=28 
If Odd(Len(String$)) 

String$=StringS+Chr$(0) 

Endi f 

Bmove Varptr(String*),String_adrX+String_counter%,Len(StringS) 

Ob_specX=String_adrX+String_counterX 

Add S t ring_count erX,L en(S t ring$) 

Endif 

I 

If TypX=22 Or TypX=21 Or TypX=29 Or TypX=30 
St ring$=E.mas k$+E.text$+E.valid$ 

If Odd(Len(String$)) 

String$=String$+ChrS(0> 

Endi f 

Bmove Varptr(String$),String_adrX+String_counter%,Len(String$) 
Gosub Tedinfo 

Ob_specX=Tedinfo_adrX+Ted_counterX 
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Add String_counterX,Len(String$) 

Add Ted_counterX,28 
Endi f 

Gosub Make_object(TypX, F l ag sX,S t a tusX,Ob_specX,ObxX,Ob_yX,50,20) 
Print At(1,21);Space$(63) 

Return 

I 

Procedure Tedinfo 
FontX=3 
JustX=0 

Lpoke TedinfoadrX+TedcounterX,StringadrX+StringcounterX 
Lpoke Tedinfo_adrX+Ted_counterX+4,String_adrX+String_counterX+ 

Len(E.maskS) 

Lpoke Tedinfo_adrX+Ted counterX+8,String_adrX+String_counterX+ 

Len(E.text$)+Len(E.mask$) 
Dpoke Tedinfo_adrX+Ted_counterX+12,FontX 
Opoke Tedinfo_adrX+Ted_counterX+14,6 
Dpoke Tedinfo_adrX+Ted_counterX+16,JustX 
Dpoke Tedinfo_adrX+Ted_counterX+18,&H1180 
Dpoke Tedinfo_adrX+Ted_counterX+20,0 
Dpoke Tedinfo_adrX+Ted_counterX+22,-1 
Dpoke Tedinfo_adrX+Ted_counterX+24,len(E,mask$) 

Dpoke Tedinfo_adrX+Ted_counterX+26,LenCE.textS) 

Inc Ted_indexX 
Return 


Das so definierte Objekt in seinen Baum einzubauen, heißt, 
zunächst die Werte in die Objektstruktur einzupoken (Zähler ist 
hier <Tree_counter%>), dann mit Hilfe einer neuen AES- 
Funktion <Objc_add> automatisch die Baum-Pointer richtig 
setzen zu lassen und zum Schluß mit <Objc_draw> das Objekt 
zu zeichnen. 

<Objc_add> wird in einer speziellen Library wohl keinen Sinn 
machen, denn warum sollte man innerhalb eines Programms 
einen Objektbaum erweitern wollen? Ich habe deshalb keine 
Unterprozedur gemacht, sondern die zugehörigen vier Zeilen 
direkt eingebaut. Die If..Else..Endif-Bedingung sitzt nur deshalb 
da, weil ich in diese Prozedur auch im Zusammenhang mit dem 
Wurzelobjekt springe, bei dem nur ein Zeiger zu ändern ist. 
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Procedure Make_object(T.ypX,F.lagX,S.tatX,S.pecX,X.X,Y.X,W.X,H.X) 
Dpoke Tree_counterX+TreeX,-1 
Dpoke Tree_counterX+TreeX+2,-1 
Dpoke Tree_counterX+TreeX+4,-1 
Dpoke Tree_counterX+TreeX+6,T.ypX 
Dpoke Tree_counterX+TreeX+8,F.lagX 
Dpoke Tree_counterX+TreeX+10,S.tatX 
Lpoke Tree_counterX+TreeX+12,S.pecX 
Dpoke Tree_counterX+TreeX+16,X.X 
Dpoke Tree_counterX+TreeX+18,Y.X 
Dpoke Tree_counterX+TreeX+20,W.X 
Dpoke Tree_counterX+TreeX+22,H.X 
If IndexX=0 

Dpoke Tree_counterX+TreeX,-1 
Else 

Lpoke Addrin.TreeX ! Objc_add 

Dpoke Gintin.O 
Dpoke Gintir*+2, IndexX 
Gemsys 40 
Endi f 

Add TreecounterX,24 
Inc IndexX 
Gosub Objc_draw 
Return 


4.13.4 Der Resources-Kopf 

Jetzt haben Sie einen wunderschönen Objektbaum errichtet und 
wollen ihn natürlich innerhalb eines Programms benutzen kön¬ 
nen - also muß er als Resources-File gesichert werden. Das 
würde nicht schwerfallen, wenn nur Aufbau und Organisation 
dieses Files bekannt wären. Die Resources-Library arbeitet ja 
ständig mit den Adressen der einzelnen Datenstrukturen. Diese 
müssen also nach Regeln sortiert vorliegen. Es hat mich einiges 
an Zeit gekostet. Ihnen zumindest die meisten Regeln des RSC- 
File-Aufbaus zeigen zu können. 

Mit den in Word-Format gepackten Daten werden hintereinan¬ 
der die einzelnen Strukturen abgelegt. Angefangen beim Feld 
<Rs.string>, in dem die ASCII-Daten der Strings und Texte ein¬ 
liegen, über die TEDINFO-Struktur, die ICONBLK-Structur 
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und die BITBLK-Struktur bis zur eigentlichen Objektstruktur. 
Existiert eine dieser Strukturen nicht, wird sie einfach über¬ 
gangen. 

Ein Header von exakt 18 Words verweist mit 9 Pointern auf die 
jeweiligen Anfänge der Einzelstrukturen. Diese Pointer sind 
keine absoluten Adressen, sondern Offsets auf die Anfangs¬ 
adresse des Resources-Files, der sich ja wer weiß wo in den 
freien Speicherraum legen kann. Der Header ist wie folgt auf¬ 
gebaut: 



Header 


Abb. 29: Headeraufbau 


Word 1 immer 0 

Word 2 Position des ersten Bytes der Objektstruktur 

Word 3 Position des ersten Bytes der TEDINFO-Struktur 

Word 4 Position des ersten Bytes der ICONBLK-Struktur 

Word 5 Position des ersten Bytes der BITBLK-Struktur 

Diese 4 letzten Words haben, falls die entsprechende Struktur 
nicht vorhanden ist, immer die Adresse der vorherstehenden 
Struktur. Word 6: wahrscheinlich Position der APPLBLK-Struk- 
tur, sonst 0 
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Word 7 

Länge des Headers in Byte, also 36 

Word 8 

Länge des Headers plus der String- und Text¬ 


struktur in Byte 

Word 9 

immer 0 

Word 10 

Länge des Files in Byte abzügl. 4 

Word 11 

Anzahl der Objekte 

Word 12 

1 

Word 13 

Anzahl der Tedinfos 

Word 14 bis 

0. Wahrscheinlich Anzahl von Bitblk, 

Word 17 

Iconblk usw. 

Word 18 

Länge des Files in Byte 


Am Ende des RSC, nach der letzten Objektdefinition des letzten 
Objekts folgt ein Longword, das das Anfangsbyte der Ob¬ 
jektstruktur aufnimmt, also identisch mit Word 2 des Headers 
ist. Die Prozedur Rsrc_load arbeitet nun so, daß dieses letzte 
Longword zu der Anfangsadresse des in den Speicher ein¬ 
geladenen Files, also HIMEM, addiert wird. Intern kann also 
wieder mit absoluten Adressen gerechnet werden, die dann nur 
um die jeweiligen Header-Daten erhöht werden müssen. 


4.13.5 Objekte speichern 

Mit diesem Wissen kann nun die Prozedur gebaut werden, die 
Ihre Daten in ein RSC-File umwandelt. Wir haben eine Menge 
Zeiger auf Adressenbereiche oder Bereichslängen zu verwalten. 
Sie seien hier noch einmal aufgelistet, um Konfusionen zu ver¬ 
meiden: 

String_pointer% zeigt auf den Anfang des Rs_string-Be- 

reichs. Da dieser direkt hinter dem Hea¬ 
der folgt und dieser eine konstante Länge 
hat, ist die Größe von String_pointer% = 
36. 

Stringende__pointer% zeigt auf das letzte Byte des Rs_string- 

Bereichs innerhalb des RSC. 
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String_counter% 

Ted _pointer% 

T ed_counter% 

Ob je _pointer% 


zählt die Länge des Rs_string-Bereichs. 
Diese Variable hat ihre Größe bei der 
Erstellung der Objektstruktur erhalten. 

zeigt auf das erste Byte des Tedinfo-Be¬ 
reichs innerhalb des RSC. 

zählt die Länge des Tedinfo-Bereichs. 
Auch diese Variable hat ihre Größe schon 
erhalten. 

zeigt auf das erste Byte des Object-Be¬ 
reichs innerhalb des RSC. 


Tree _counler% 

Bitblk _pointer% 
Bitblk_counter% 

Icon __pointer% 
Icon counter% 


Rsc_adr% 

Index% 

Tedinf o_index% 
Tree% 


ist der dazugehörige Längenzähler der 
Object-Struktur. 

sind die entsprechenden Variablen für 
den Bitblk-Bereich. 

sind die für den ICONBLK-Bereich. Die 
letzten beiden Strukturen sind im Grund¬ 
baukasten nicht vorhanden, sie treten 
deshalb mit Dummys bzw. gar nicht in 
Erscheinung. 

ist der Pointer auf die Adresse innerhalb 
des RSC-Files, die gerade bearbeitet wird. 

ist der Objektzähler 

ist der Mengenzähler für die Tedinfos. 

ist der Anfang des Rsc im RAM. 


Zuerst müssen jetzt die einzelnen Pointer mit Werten versehen 
werden. Etwas verwirrend wird es zunächst, weil wir bisher mit 
absoluten Adressen gearbeitet haben, da das Resources-File 
sozusagen lebend erzeugt wurde und GEM natürlich nur diese 
absoluten RAM-Adressen handhaben kann. Das RSC-File nun 
arbeitet mit relativen Adressen, also Offsets auf den Anfangs¬ 
bereich des Files. Derzeit haben wir noch Mischungen beider 
Adressierungsarten zu verwalten. 
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Mit den Werten, die bisher bekannt sind, wird der Header nach 
der oben gezeigten Belegungsliste aufgebaut und an den Anfang 
des RSC-Speicherbereichs verschoben. Der Zähler Rsc_adr% 
wird auf 36 gesetzt. 

Jetzt nehmen wir unsere Baumadresse und wandern Objekt für 
Objekt durch das innerhalb des RAM liegende RSC, denn auch 
hier müssen wir absolute in relative Adressen ändern: Überall 
da, wo Ob_spec auf eine Strukturadresse zeigt, wird diese rela¬ 
tiviert. Außerdem sind die Objektkoordinaten innerhalb eines 
RSC anders abgelegt als im RAM: Im unteren Byte liegt die Ko¬ 
ordinate, die sich auf Buchstaben-Scanlines bezieht, es können 
also nur Werte im 8*16 Raster auftreten. Im oberen Byte, als 
Offset auf diese Koordinatenwerte, wird die Position differen¬ 
ziert. Beim Laden des RSC-Files werden die Koordinatenwerte 
dann umgerechnet. Ich habe hier der Einfachheit halber auf 
diese Differenzierung verzichtet und nur die Koordinatenwerte 
in das 8*16-Raster überführt. 

Ebenfalls innerhalb der Tedinfo-Struktur werden Adressen von 
Absolut- in Relativwerte umgerechnet, nämlich jeweils in den 
ersten drei Longwords. 

So, nun kann unser RSC weiter aufgebaut werden: Falls vorhan¬ 
den, wird der Rs_string_Bereich in den RSC-Bereich verscho¬ 
ben und der Rsc_adr%-Zähler entsprechend erhöht. Weiter 
wird, falls vorhanden, der Tedinfo-Bereich darangehängt und 
der Rsc_adr%-Zähler wieder erhöht. Dasselbe könnte jetzt mit 
den BITBLK- und ICONBLK-Strukturen erfolgen. 

Zum Schluß der Speicherraumbewegungen wird der Object- 
Bereich an das Ganze gehängt und ganz ans Ende das Longword 
für den Pointer auf den Anfang der OBJECT-Struktur innerhalb 
des RSC eingepoked. 

Zwei Angaben für den Header wissen wir erst jetzt: nämlich die 
Gesamtlänge des Files und die Gesamtlänge abzüglich 4 für das 
18- und 34-Word. Diese werden nachträglich in den Header ein¬ 
getragen, und das RSC kann mit Hilfe des <Bsave>-Befehls auf 
Diskette geschrieben werden. 
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Prozedur Save_rsc 
S t ring_point e rX=36 

St ringende_pointerX=String_pointerX+String_counterX 
If Ted_counterX>0 

Ted_pointerX=String_pointerX+StringcounterX 
Objc_pointerX=Ted_pointerX+Ted_counterX 
Else 

Obj c_pointerX=St ringpointerX+String_counterX 
Ted_pointerX=Objc_pointerX 
Endi f 

IconpointerX=TedpointerX 
Bitblk_pointerX=Ted_pointerX 

I 

Header$=Mki$(0)+Mki$(0bjc_pointerX)+Mki$(Ted_pointerX)+ 

Mki$(Icon_pointerX)+Mki$(Bitblk_pointerX)+MkiS(0)+ 
Mki$(String_pointerX>+MkiS(Stringende_pointerX)+MkiS(0) 
Header$=HeaderS+MkiS(0)+Mki$(IndexX)+Mki$(1)+Mki$(Ted_indexX)+ 

HkiS(0)+MkiS(0)+Mki$(0)+Mki$(0)+Mki$(0) 
Bmove Varptr(Header$),Rsc_adr%,36 
Add Rsc_adrX,36 

I 

AX=T reeX 

For NX=0 To IndexX-1 

If Dpeek(AX+6)=26 Or Dpeek(AX+6)=28 
Print Lpeek(AX+12)'String_adrX 
L poke AX+12,Lpeek(AX+12)-St ring_adrX+36 
Print Lpeek(AX+12) 

Endi f 

If Dpeek(AX+6)=21 Or Dpeek(A%+6)=22 Or Dpeek(AX+6)=29 
Or Dpeek(AX+6)=30 

Lpoke AX+12,Lpeek(AX+12)-Tedinfo_adrX+Stringende_pointer% 

Print Lpeek(AX+12) 

Endi f 

Dpoke AX+16,Int(Dpeek(AX+16)/8) 

Dpoke AX+18,Int(Dpeek(AX+18)/16) 

Dpoke AX+20,Int(Dpeek(AX+20)/8) 

Dpoke AX+22,Int(Dpeek(AX+22)/16) 

Add A%,24 
Next NX 

For NX=Tedinfo_adrX To Tedinfo_adrX+Ted_counterX Step 28 
Lpoke NX,Lpeek(NX)-String_adrX+36 
Lpoke NX+4,Lpeek(NX+4)■String_adrX+36 
Lpoke NX+8,Lpeek(NX+8)-String_adrX+36 
Next NX 
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If String_counterX>0 

Bmove St ring_adr%,RscadrX,StringcounterX 
Add Rsc_adrX,String_counterX 
Endi f 

If Ted_counter%>0 

Bmove TedinfoadrX,RscadrX,Ted counterX 
Add Rsc_adr%,Ted_counter% 

Endif 

Bmove TreeX,Rsc_adr%,Tree_counter% 

Add Rsc_adrX,Tree_counterX 
Lpoke Rsc_adr%,Objc_pointer% 

Add Rsc_adr%,4 

Dpoke Varptr(Rsc$)+18,Rsc_adrX-Varptr(Rsc$)-4 
Dpoke Varptr(Rsc$)+34,Rsc_adrX-Varptr(Rsc$) 

I 

Bsave "TEST.RSC'.VarptrCRscSI.RscadrX-VarptrfRscS) 
Return 


Dieses so erzeugte RSC kann mittels derselben Methoden, die in 
den ersten Kapiteln beschrieben wurden, in Ihr Programm ein¬ 
gelagert und bearbeitet werden. 
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5. Spezialitäten aus Kraut und Rüben 


5.1 FORM_INPUT, etwas anders 

Der Befehl <Form_input> in GFA-BASIC, so mächtig er ist, hat 
für manche Anwendungen einen gravierenden Nachteil: Beenden 
ist nur mittels der RETURN-Taste möglich. In vielen Fällen 
will man jedoch mit Pfeiltasten oder HOME aussteigen, will 
nach Erreichen der maximalen Maskenlänge automatisch in 
Subroutinen springen können oder hat sonstige Ideen im Kopf, 
die durch das Betätigen von RETURN behindert würden. 

Für diese Fälle folgt hier eine alternative Form_input-Routine. 
Sie schickt ein Flag zurück, das folgende Werte haben kann: 

1. nach Erreichen der maximalen Eingabelänge 

2. nach Betätigen der RETURN-Taste 

3. nach Drücken der "Cursor runter"-Taste 

4. nach Drücken der "Cursor hoch"-Taste 

5 nach Drücken von Clr/Home 

Außerdem kann mit der Insert-Taste vom Überschreib- auf den 
Einfügemodus umgeschaltet werden. 

Diese Procedure ist enorm vielseitig. Mit ein bißchen Bastelei 
kann sie auch zur kompletten Textverarbeitungsroutine erweitert 
werden. Deshalb hier eine etwas ausführlichere Erläuterung. 

Innerhalb einer Do..loop-Schleife wird Inp(2), also die Eingabe 
von Tastatur auf den Bildschirm abgefragt. Inp(2) gibt für alle 
ASCII-Zeichen deren ASCII-Wert zurück, für alle Sondertasten 
einen Atari-spezifischen Wert. Ausgehend von diesem Wert wird 
in Unterprozeduren verzweigt, wenn: 
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m zwar ein ASCII-Zeichen, aber kein druckbares Zeichen ein¬ 
gegeben wurde. Das sind hier: Backspace (8), Delete (127), 
Return (13), Tab (9) und ESC (27). 

■ ein Sonderzeichen außerhalb des normalen ASCII-Codes ein¬ 
gegeben wurde. 

Ansonsten wird der String X$ zusammengesetzt, indem aus der 
momentan aktuellen Spaltenposition heraus der String geteilt und 
das neue Zeichen an die Spaltenposition geschrieben wird. Ent¬ 
weder als Ersatz des Zeichens auf der Spaltenposition (Über¬ 
schreiben) oder, indem der gesamte Stringrest um eine Position 
nach rechts verschoben wird (Einfügen). 

Anschließend wird der gesamte String an seine Anfangskoordi¬ 
naten geschrieben. 

Da GEM in Fenstern - und das wird wohl die häufigste Anwen¬ 
dung sein - keinen Cursor anbietet, muß dieser selbstgestrickt 
werden. Am einfachsten, denke ich, ist der hier beschrittene 
Weg, der ein Sprite definiert und dieses jeweils koordinaten¬ 
gerecht schreibt. Die Koordinatenberechnerei sowohl bei der 
<Text..>- als auch bei der <Sprite..>-Zeile hat u.a. damit zu tun, 
daß der Grafikursprung für Sprites immer, auch im geöffneten 
Fenster, bei Bildschirm 0/0 liegt, der Text-Befehl hat seine 
Ursprungskoordinaten im Fenster jedoch bei 0/19. Ich habe in 
den beiden Zeilen, in denen das Sprite geschrieben wird, jeweils 
am Ende der Vertikalkoordinate eine 19 stehen. Diese gilt für 
Fenster, bei sonstigen Anwendungen ist diese 19 zu streichen. 

Die <Procedure No_charakter> setzt den String für DELETE 
und Backspace unterschiedlich zusammen: Einmal wird das 
Zeichen unter dem Cursor gelöscht, dieser bleibt an seiner alten 
Stelle stehen und der rechte Stringteil wird herangezogen. Das 
andere Mal wandert der Cursor nach links, löscht das jetzt unter 
ihm liegende Zeichen und zieht dann erst den Reststring heran. 
Die RETURN-Taste belegt lediglich das Flag Ret% mit 1, was 
einen Ausstieg aus Form_Input-Routine bewirkt. TAB und ESC 
sind nicht definiert. 
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Die <Procedure No_ascii> hantiert hier ausschließlich den Cur¬ 
sortastenblock, obwohl sie natürlich noch viel mehr könnte (so 
kann bei Bedarf jede einzelen Funktionstaste belegt werden). In¬ 
nerhalb der Routine - weil wohl immer auf diese Art funktio¬ 
nierend - wird der Spaltenzähler verändert. Da der Zeilenzähler 
außerhalb der <Form_input>-Routine verändert werden muß, 
wird das Flag Ret% mit 3 bzw. 4 bzw. 5 belegt. Insert schaltet 
wiederum ein Flag um. 


1 * Maskeneingabeprozedur. Globaler Rückgabewert: RetX. Dieser kann * 
1 * die Werte 1 bis 5 haben. Siehe Programmkommentare * 
1 * Vor der Erstbenutzung: <Gosub Spritedefs> eingeben * 

I ******************************************************************** 


’ Programm: FORM!NP.BAS 

i 

Procedure Form_input(Pt rX,X$,Sp%,Ze%,LaengeX) 
Local Y% 

RetX=0 

YX=Len(X$)+1 

Text SpX*8•8,Ze%*16,X$+" » 

Sprite Cur$,(Sp%+YX-1)*8,ZeX*16-2+19 
Do 


! Übergabeparameter: 

! PtrX=Rückgabestring 
! X$=Stringvorbelegung 
! Sp%=Anfangsspalte 
! ZeX=Anfangszeile 
! laenge%=maximale Länge 


TX=Inp(2) 


If TX>=187 

Gosub Noascii_taste(TX) 

Else 

If TX=27 Or TX=8 Or T%=127 Or TX=13 Or T%=9 
Gosub No_character(TX) 

Else 

If Insert! 

X$=Left$(X$,Y%-1)+Chr$(TX)+Mid$(X$,YX) 

Else 

X$=Left$(X$,Y%-1)+Chr$(TX)+Mid$(X$,YX+1) 

Endi f 
Inc YX 

If YX=Laenge% ! RetX =1 

Ret%=1 
Endi f 
Endi f 
Endif 

Sprite Cur$ 

Text SpX*8-8,ZeX*16,X$+" » 
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Sprite Cur$,(SpX+YX-1)*8,ZeX*16-2+19 
*PtrX=X$ 

Exit If Ret%>0 
Loop 
Return 

I 

Procedure No_character(SignX) 

If SignX=8 And Y%>1 
Dec YX 

X$=Left$(XS,YX-1)+Mid$(X$,YX+1) 

Endi f 

If SignX=13 
RetX=2 
Endi f 

If SignX=127 And YX>1 
X$=Left$(X$,YX-1)+Mid$(X$,YX+1) 

Endi f 
Return 

Procedure Noasciitaste(ScanX) 

If ScanX=210 
If lnsert!=0 
Insert!=-1 
Else 

Insert!=0 
Endi f 
Endi f 

I 

If ScanX=199 
RetX=5 
Endi f 

If ScanX=203 And YX>1 
Dec YX 
Endi f 

If ScanX=205 And YX<=LaengeX 
Inc YX 
Endi f 

If ScanX=208 
RetX=3 
Endi f 

If ScanX=200 
RetX=4 
Endi f 
Return 


Backspace 


! CR/LF 
! dann RetX=2 

! Delete 

! 

I 


! Inserttaste 

! 

! 

! 

I 

I 

! CLR-Home 
! Cursor an Anfang 
! retX=5 
! Cursor links 


Cursor rechts 


Cursor nach unten 
RetX=3 

Cursor nach oben 
RetX=4 
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Procedure Spritedefs 

Cur$=MkiJ(15)+Mki$(12)+MkiS(1)+MkiS(0)+Mki$(1)+Mki$(0)+Mki$(0)+Mki$(0) 
+Mki$(0)+Mki$(0) 

Cur$=Cur$+MkiS(0)+Mki$(0)+Mki$(0)+Mki$(0)+Mki$(0)+Mki$(0)+Mki$(0)+Mki$ 

(0)+Mki$(0)+MkiS(0)+Mki$(0) 

Cur$=Cur$+Mki$(0)+Mki$(0)+Hki$(0)+MkiS(0)+Mki$(0)+Mki$(0)+Mki$(0)+Mki$ 

(0)+Mki$(0)+Mki$(0)+Mki$(0)+MkiS(0)+MkiS(0)+Mki$<511)+Mki$(0)+Mki$(511) 

Return 


Was kann man mit dieser Routine machen? Ich zeige Ihnen ein 
Beispiel für Maskenprozeduren. Sie definieren - ob in Data- 
Zeilen oder anders, ist egal - Ihre Maskenpositionen und laufen 
in einer Schleife die Form_input-Routine immer wieder an. 
RETURN oder Cursor-down lassen das nächste Maskenfeld zur 
Bearbeitung zu, Cursor-up das vorherige und Home das erste. 


Dim String$(3),SX(3,3) 

Openw 0 

Gosub Spritedefs 

I 

Data "",10,10,25 
Data "",10,11,30 
Data "",12,12,20 
For NX=1 To 3 

Read String$(NX),SX(NX,1),SX(NX,2),SX(N%,3) 

Next N% 

NX=1 

Repeat 

Gosub Form_input(*Stringt,String$(NX),S%(N%,1),S%(N%,2),S%(N%,3)) 
String$(NX)=StringS 
If RetX=1 or RetX=2 Or Ret%=3 
Inc NX 
Else 

If RetX=5 
NX=1 
Else 

If RetX=4 
Dec NX 
If NX<1 
NX=1 
Endi f 
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Endif 
Endi f 
Endi f 

Until NX=4 


Diese Routine zeigt Ihnen die generellen Arbeitshinweise zur 
Formular-Erstellung. An einigen Stellen kann diese Routine von 
Ihnen sicher noch verbessert werden. Ich denke dabei an die 
beschränkte Cursorbewegung innerhalb eines Wortes und an die 
Möglichkeit, z.B. mit <ESC> den ganzen String zu löschen. 


5.2 Automatischer Zeilenumbruch für Textverarbeitung 

Manchmal ist es ganz schön, auch in Formularmasken die Mög¬ 
lichkeit zu haben, automatisch beim Erreichen des Zeilenendes 
in die nächste Zeile zu springen und dabei das "angebrochene" 
Wort aus dem vorherigen String zu entfernen und als erstes Wort 
des nächsten zu benutzen: also das tun zu können, was jede 
bessere Textverarbeitung können muß. 


• Programm: UORDURAP.BAS 

I 

Procedure Word_wrap(A.X,X.$,P.trX) 
S.pX=Len(X.$) 

Uhile S.p%>1 

Exit If Mid$(X.S,S.p%,1)=" » 
T$=Mid$(X.S,S.p%) 

Print " ";Chr$(8);Chr$(8); 

Dec S.p% 

Uend 

I 

X.$=LeftS(X.$,S.p%-1) 
TS=T*+ChrS(A.%) 

*P.trX=TS 

Return 


Hinein kommt das letzte eingegebene Zeichen und der letzte 
Gesamtstring, zurückgegeben wird der neue String, der nur das 
Teilwort mit dem zuletzt eingegebenen Zeichen enthält. Anson¬ 
sten ist außer der Kürze an dieser Prozedur nichts Bemerkens- 
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wertes: Der Altstring wird zurückgelesen, bis ein Leerzeichen 
auftritt. Gleichzeitig wird der gelesene Teil der Zeile und des 
Strings gelöscht. Der gelöschte Teil wird in einen neuen String 
überführt und als neuer String ausgegeben. 

Jetzt können Sie aus der Form input-Prozedur bei der Bedin¬ 
gung "maximale Eingabelänge erreicht" in die Word_wrap- 
Procedure springen und haben schon fast so etwas wie Textver¬ 
arbeitung zusammen. 


5.3 Druckeranpassung statt Deskaccessory 

Wenn Sie sich auch schon darüber geärgert haben, daß Sie zwar 
einerseits einen Drucker haben, der Hardcopies in 960er Breite 
druckt, und Sie deshalb mit der Betriebssystemvoreinstellung 
nichts anfangen können, andererseits aber nur deswegen zwei 
Deskaccessory-Plätze verschwenden müssen, dann habe ich hier 
etwas für Sie. 

Wissen Sie, daß DESKTOP.INF auch die Voreinstellungen aus 
der Druckeranpassungs und übrigens auch aus der Anpassung 
der seriellen Schnittstelle auf Diskette sichert? Wenn nicht, pro¬ 
bieren Sie es aus: Irgend etwas anklicken, ARBEIT SICHERN 
aus dem Menü anklicken, neu booten, und Ihre Einstellung er¬ 
scheint wieder in Deskaccessory. 

Das kann simuliert werden. Die 10 Zeilen des Programms lesen 
die zuständige Information aus DESKTOP.INF heraus, wandeln 
sie in XBIOS lesbare Daten um und übergeben diese dann der 
zuständigen XBIOS-Routine (XBIOS 33). Das funktioniert na¬ 
türlich am allerbesten, wenn Sie den Source compilieren und in 
einen AUTO-Ordner stecken. Aber auch eingebaut in ein selbst¬ 
gebautes Programm sieht die Routine nicht übel aus. 


1 Programm: DE SK INF.BAS 

I 

Open H I",#1."DESKTOP.INF" 
Line Input #1,A$ 

Line Input #1,AS 
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For N%=5 Downto 0 
X$=MidS(AS,N%+3,1) 
If XS=»1" 
A%=AX+2 , 'NX 
Endi f 
Next NX 

Void Xbios(33,A%) 


Dazu zwei Erläuterungen: Im DESKTOP.INF ist die zweite Zeile 
für die Druckeranpassung und die erste für die RS232-Schnitt- 
stelle zuständig. Dabei gilt: 

RS 23 2 

Hinter dem Deklarationszeichen #a folgen 6 Zahlen: 

1 0 = Vollduplex, 1 = Halbduplex 

2 Baudrate: 0=9600, 1=4800, 2=1200, 3=300 

3 Parity: 0=None, l=odd, 2=even 

4 Bits/Zeichen: 0=8, 1=7, 2=6, 3=5 

5 Protokoll: l=XON/XOFF, 0=RTS/CTS 

6 Bit 8: 0 = gesetzt, 1 = nicht gesetzt 

Druckeranpassung 

Hinter dem Deklarationszeichen #b folgen 6 Zahlen: 

1 Druckertyp: 0=Matrix, l=Typenrad 

2 Farbe: 0=Schwarz/weiß, l=Farbe 

3 Zeilenlänge: 0=1280 Zeichen, 1=960 Zeichen/Zeile 

4 Quality: 0=Draft, 1=NLQ 

5 Druckerausgang: 0=Centronics, 1=RS232 

6 Papierart: 0=endlos, l=Einzelblatt 

Der XBIOS-Routine 33, Setprt, ändert die Druckerkonfiguration. 
Im Ein-Byte-Parameter haben die Bits folgende Bedeutung: 

0 0=Matrixdrucker, 1= Typenraddrucker 

1 0=schwar/weiß, l=Farbe 

2 0=1280 Zeichen, 1=960 Zeichen 

3 0=Draft, 1=NLQ 
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4 0=Centronics, 1=RS232 

5 0=Endlospapier, l=Einze!blatt 
6-14 reserviert 

15 muß 0 sein 

Sie sehen, die Forderungen dieser Routine nach Bitbelegung 
werden exakt von der Zahlenbelegung des DESKTOP.INF er¬ 
füllt. Wir können also dieses direkt als Bitmuster einiesen. Auf 
fast identische Art kann die XBIOS(15)-Routine Rsconf mit den 
Daten aus DESKTOP.INF gefüllt werden, um die Schnittstellen¬ 
parameter der RS232-Schnittstelle einzustellen. 


5.4 Uhrzeit aus dem AUTO-Ordner 

Hier ist noch etwas für Ihren AUTO-Ordner. Dazu aber erst 
einmal folgendes: Der Atari fragt den AUTO-Ordner fast am 
Anfang seiner Boot-Prozedur ab. GEM ist noch nicht geladen, 
wenn AUTO-Programme ausgeführt werden. Das hat manchmal 
fatale Folgen: Wenn Sie nämlich ein Programm in den AUTO- 
Ordner stecken, das auch nur eine einzige VDI- oder AES-Rou- 
tine ausführen muß, stürzt der Rechner ab. Das heißt: keine 
Line-, Draw- oder Plot-Befehle hinein, kein Fenster oder Menü, 
nur das, was auch in GFA-BASIC über BIOS und XBIOS-Rou- 
tinen läuft. Traurige Konsequenz ist, daß selbststartende Pro¬ 
gramme fast unmöglich sind. Schade, aber so ist es nun mal. 

Deshalb hier eine Routine, die - compiliert - in den AUTO- 
Ordner paßt und Ihnen ermöglicht, vor Startbeginn Zeit und 
Datum einzugeben, so daß Sie immer gezwungenermaßen auf 
dem aktuellen Stand sind. Bis auf eine Ausnahme ist das Pro¬ 
gramm banal. Das Systemdatum wird auf den Bildschirm ge¬ 
schrieben und zu einer Eingabeprozedur gesprungen. Nach Ein¬ 
gabe von RETURN geht’s gleich weiter (falls Sie das Datum 
nicht interessiert). Dasselbe für die Zeitangaben: Abfrage nach 
korrekten Eingaben, wenn nicht, das Ganze nochmal, ansonsten 
Ende der Bearbeitung. 
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' Programm: TIME.BAS 

I 

If Mid$(TimeS,5,1)<"1" 

Anfang: 

Print At(30,10);DateS' "TimeS 
Print At(30,10);Chr$(27);"e"; 
Gosub Eingabe(31,30) 

If A$<>Chr$(13) 

D$=A$+" 

Gosub Eingabe(12,33) 
D$=D$+A$+".1987" 

Endi f 

Gosub Eingabe(23,43) 

If A$<>ChrS(13) 

T$=A$+":" 

Gosub Eingabe(59,46) 
T$=T$+A$+":00" 

Endi f 

Print At(55,10);"OK? »; 

Do 

AntS=InkeyS 
Exit If Ant$<>"" 

Loop 

Print Ant$; 

If AntJ="n" Or AntS*"N" 

Print At(55,10);" " 

Goto Anfang 
Endi f 

Print Chr$(27);"f"; 

Settime TS.DS 
Endif 
Ouit 


Ich finde die <Procedure Eingabe» ganz interessant. Es handelt 
sich hier nämlich um eine rekursive Prozedur. Das heißt, sie ruft 
sich selbst auf. Sowohl in der Zeit als auch im Datum muß ich 
ja immer 2 Ziffern hintereinander eingeben, diese zu einer Zahl 
zusammenfassen und dann eine Cursorposition weiterspringen. 
Alle Zahlen, die einzugeben sind, haben ihren Grenzwert: Das 
Tagesdatum kann z.B. nicht höher als 31 sein, das Monatsdatum 
nicht größer als 12, die Minuten nicht mehr als 59 usw. Einga¬ 
befehler möchte ich vermeiden. Ich mache jetzt folgendes: Mit¬ 
tels des bekannten InkeyS wird ein Tastendruck in einen String 
übernommen. Ob die eingegebene Taste überhaupt eine Zahl ist, 
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wird durch den Instr(...)-Befehl abgefragt. Falls die Zahl außer¬ 
halb des Grenzwertes gerät, wird einfach die Prozedur noch 
einmal von vorne angefangen. Die Übergabeparameter werden 
dabei genauso wieder mitübergeben. Profis werden jetzt sagen, 
was denn, das ist doch nur sehr, sehr bedingt rekursiv. Na ja, 
sicher, aber erläutert es nicht die Möglichkeiten, ohne gleich in 
höchste Mathematik einsteigen zu müssen? 


Procedure Eingabe(Lim%,XX) 

AS="" 

Print At(XX.IO); 

Do 

XS=Inkey$ 

If XS<>"" 

If Instr("1234567890",x$) 
AS=A$+X$ 

Print XS; 

If Val(A$)>LimX 
Gosub Eingabe(LimX,X%) 
Endif 
Endi f 
Endi f 

Exit If Len(A$)=2 Or A$=ChrS(13) 
Loop 
Return 


5.4.1 Die VT52-Bildschirmsteuerung 

Oben habe ich einige Print-Befehle benutzt, die das ESC 
(ChrS(27)), gefolgt von einem Buchstaben schreiben. Dabei ist 
eine auf TOS-Ebene wunderschöne Implementierung des Atari 
ausgenutzt: die VT52-Escapes. Der VT52-Emulator hat nämlich 
eine komplette Cursorsteuerung eingebaut, die aber - wie gesagt 
- leider nicht mehr in Fenstern funktioniert. Aber dennoch: 
Nicht alles, was zu programmieren ist, braucht diese Fenster. 
Deshalb eine kurze Liste der Möglichkeiten: 

Alle Cursor-Befehle lauten gleichermaßen <Print chr$(27)+".."; 
Das Semikolon am Ende ist wichtig, sonst haben Sie wenig von 
dem Aufwand. Im folgenden liste ich nur den Buchstaben auf, 
der in die Anführungszeichen kommt: 
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e Cursor an 

f Cursor aus 

A Cursor up 

B Cursor down 

C Cursor right 

D Cursor left 

E Clear/Home (Bildschirm löschen und Cursor auf 0/0) 

H Cursor Home ohne Löschen des Bildschirms 

I Scroll down (Cursor hoch. Befindet sich der Cursor 
am oberen Bildschirmrand, Leerzeile einfügen und 
den Restbildschirm nach unten scrollen. 

J Bildschirm von Cursor bis zum Ende löschen 

K Bildschirm von Cursor bis zum Zeilenende löschen 

L Leerzeile einfügen und Bildschirmrest nach unten 

scrollen 

M Zeile löschen und den Bildschirmrest nachrücken. 

Y Cursor auf beliebige Bildschirmposition setzen. Zwei 
weitere Parameter folgen auf das "Y", die die Zeile 
und die Spalte angeben. Beide Werte müssen mit 
einem Offset von 32 versehen werden. (Zeile 5, 
Spalte 12 hieße also: Print chr$(27)+"Y"+37+44 

b Farbe der Buchstaben 

c Farbe des Hintergrundes 

d Löschen des Bildschirms von Anfang bis zur Cursor¬ 
position 

1 Löscht die Cursorzeile, ohne den Restbildschirm 

nachzuziehen 

o Löscht vom Zeilenanfang bis zur Cursorposition 

p Reverse Darstellung aller nachfolgenden Eingaben 

q schaltet den Reversmodus wieder aus 
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v Schaltet Zeilenüberlauf an 

w Schaltet Zeilenüberlauf aus 

j Speichert die aktuelle Cursorposition 

k Setzt den Cursor auf die mit ESC j gespeicherte Po¬ 
sition zurück. 


5.5 Und noch ’ne Uhr 

In manchen Programmen ist es ganz witzig, auf Knopfdruck die 
Uhrzeit lesen zu können. Machen wir’s doch einmal anders, als 
oben in der Statuszeile und sagen, wenn der Benutzer auf z.B. 
die ESC-Taste drückt, erscheint eine Uhr auf dem Bildschirm, 
aber eine richtige runde Uhr mit Zeigern und Ziffernblatt. 


1 Programm: UHR.BAS 

I 

Do 

If Inkey$=Chr$(27) 
Gosub Uhr 
Endi f 
Loop 


! Dies sei das Anwenderprogramm, in dem 
! innerhalb einer Schleife die Abfrage- 
! bedingung steht. Statt ESC kann natürlich 
! jede andere Taste genommen werden. 


Die Uhr selber bedarf etwas Geometrie, mehr nicht. M_x% und 
M_y% geben den Mittelpunkt der Uhr vor, Size% ihre Größe. 
Diese Variablen lassen sich leicht von Ihnen ändern. 

Die Stundenzahlen" werden als Striche im Uhrzeigersinn um den 
Mittelpunkt konzentriert gezeichnet. In einer Endlosschleife mit 
irgendeiner Ausstiegsbedingung wird die Zeit aus der Tastatur¬ 
prozessoruhr abgefragt und in ihre Bestandteile Sekunden, Mi¬ 
nuten, Stunden zerlegt. Das Zeichnen der drei Zeiger geschieht 
im Graphmode 3. Der Timer-Befehl gibt die einigermaßen ge¬ 
nauen Zeitvorgaben zum Neuzeichnen der Uhr einmal alle zwei 
Sekunden, da die interne Atari-Uhr auch nur in diesem Takt 
läuft. 
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Procedure Uhr 

Local M_xX,M_yX,SizeX,Uhrx,Uhry,Sek,Min,Std,TX 
M_xX=580 
M_yX=70 
SizeX=50 

Box H_xX-SizeX,M_yX-SizeX,M_xX+SizeX,M_yX+SizeX 
For 1=1 To 12 
Uhrx=Sin(2*Pi*I/12) 

Uh ry=Cos(2*Pi* I/12) 

Line M_xX+(SizeX-7)*Uhrx,M_yX+(S i zeX- 7) *Uh ry, 

M_xX+(SizeX-2)*Uhrx,M_yX+(SizeX-2)*Uhry 

Next I 
Graphmode 3 
Repeat 

Sek=Val(Mid$(Time$,7))*Pi/30 
Min=Val(Mid$(Time$,4))*Pi/30+Sek/60 
Std=Val(Time$)*Pi/6+Min/12 
Defline 1,3 

Line M_xX,M_yX,M_xX+SizeX/2*Sin(Std),M_yX-SizeX/2*Cos(Std) 
Line M_xX,M_yX,M_xX+(SizeX-SizeX/10)*Sin(Min), 

M_yX-(SizeX-SizeX/10)*Cos(Min) 

Defline 1,1 

Line M_xX,M_yX,M_xX+SizeX*Sin(Sek),M_yX-SizeX*Cos(Sek) 

TX=Timer 
Repeat 

Until TX+400=Timer 
Defline 1,3 

Line M_xX,M_yX,M_xX+SizeX/2*Sin(Std),M_yX-SizeX/2*Cos(Std) 
Line M_xX,M_yX,M_xX+(SizeX-SizeX/10)*Sin(Min), 

M_yX-(SizeX-SizeX/10)*Cos(Min) 

Defline 1,1 

Line M_xX,M_yX,M_xX+SizeX*Sin(Sek),M_yX-SizeX*Cos(Sek) 

Until Mousek=2 Or InkeySo"" 

Cls 

Graphmode 1 
Return 


5.6 Ein bißchen Perspektive gefällig 

Tips & Tricks in einem solchen Buch verlangen auch ihre Er¬ 
läuterung. Ich hoffe, diesem Anspruch sind wir Verfasser ge¬ 
recht geworden. Ich weiche trotz alledem jetzt von diesem Prin¬ 
zip ab und gebe Ihnen 3 Prozeduren an die Hand, ohne die 
Hintergründe zu erklären. Es handelt sich um 2 Prozeduren, die 
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Körper definieren, und um die dazugehörige Zeichenprozedur. 
Ich sage Ihnen auch, warum: Es handelt sich um ausgewachsene 
Perspektivdarstellungen, ja, sogar erweitert um einen einfachen 
Hidden_line_Algorithmus. Und das gehört in die höhere Ma¬ 
thematik, die - wenn der Erklärungsanspruch befriedigt werden 
sollte - eines ganzen Buches bedarf. Ich habe es probiert, die 
Sache zu beschreiben, die hier passiert. Nach 50 Seiten trocken¬ 
ster Materie bin ich ausgestiegen. Erlauben Sie auch einem 
Autor, irgendwann die Lust zu verlieren. 

Deshalb hier der Quellcode in Kurzkommentierung. Die Proze¬ 
dur finden Sie unter dem Namen "3DGRAFIK.BAS" auf der 
Diskette. Nach dem Starten wird eine Balkengrafik erscheinen. 
Für die Kuchengrafik entfernen Sie bitte die Rem-Zeilen vor 
dem Aufrufen des Unterprogramms Def-torte und setzen die 
Def-Quader-Aufrufe in Rem-Zeilen. 

Ziel der Arbeit war, für Präsentationsgrafiken Diagramme 
zeichnen zu können, die einem ästhetisch höheren Anspruch ge¬ 
nügen. Es sind zwei verschiedene Diagrammformen heraus¬ 
gekommen: das Balkendiagramm, das durch eine Aufeinander¬ 
schichtung und Reihung von einzelnen Kuben erzeugt wird, und 
das Tortendiagramm, dessen Ursprung eine segmentierte Säule 
ist, deren einzelne Segmente die Gesamttorte ergeben. Einzelne 
Stücke daraus kann man herausziehen. 

Der komplette Algorithmus ist eine Kombination aus punkt- 
und flächenorientierten Bestimmungen. Es sind zunächst für die 
mögliche Anzahl der Eckpunkte in allen drei Koordinaten Ar- 
rays zu dimensionieren. Diese werden später umgerechnet in 
Bildschirmkoordinaten. Auch diese müssen dimensioniert sein. 
Für die Flächen, deren Anzahl natürlich geringer ist als die der 
Eckpunkte, werden 4 Arrays benötigt: Der Anfangseckpunkt der 
Fläche, die Anzahl der Punkte pro Fläche, die Farbe, die die 
Fläche auf der Zeichnung haben soll, und die relative Entferung 
der Fläche vom Ursprung. 

Dim X(1000),Y(1000),Z(1000) 

Dim Xx%(1000),Yy%(1000) 

0im Xmonitor%(1000),Y_monitor%(1000),Pk t ent f(1000) 

Dim Start%(200),Anz%(200),Farbe%(200),Entfernung(200) 
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5.6.1 Der Kubus 

In der ersten Abteilung wird nun ein Quader oder Würfel defi¬ 
niert. Übergeben werden müssen seine drei Koordinaten, sowie 
die Breite, Höhe und Farbe, in der er dargestellt werden soll. 

Nun wird jede Fläche, die der Quader hat, definiert. Sein An¬ 
fangspunkt, die Bildschirmkoordinaten der einzelnen Eckpunkte 
und die Farbe wird in das jeweils zugehörige Array eingerech¬ 
net. Sie sehen: Ab jetzt geht’s wirklich mit Flächen und nicht 
mit Begrenzungslinien weiter. Das ist - auch von der Zeich¬ 
nungssystematik her - ein großer Unterschied zu den meisten 
sogenannten 3-D-Programmen, die nur linienorientiert arbeiten 
und daher weder überdeckte Linien verstecken, noch Farb¬ 
informationen für einzelne Körperbereiche unterschiedlich be¬ 
stimmen können. Hier z.B. wird für die Deckfläche des Kubus 
die übergebende Farbe um eins erhöht, also etwas dunkler ge¬ 
macht, die Seitenflächen erhalten die übergebene Farbe und die 
Vorder- und Rückfläche werden sehr viel dunkler angesetzt. 

Procedure Def_quader(XX,Y%,ZX,BreiteX,HoeheX,FarbeX) 

Inc FIX 

StartX(FlX)=PktX+1 
AnzX(FIX)=4 
FarbeX(FlX)=FarbeX+1 

I 

Inc PktX 
X(PktX)=XX 
Y(PktX)=YX 
Z(PktX)=ZX+HoeheX 
Inc PktX 

X(PktX)=XX+Brei teX 
Y(PktX)=YX 
Z(PktX)=ZX+HoeheX 
Inc PktX 

X(PktX)=XX+BreiteX 
Y(PktX)=YX+BreiteX 
Z(PktX)=ZX+HoeheX 
Inc PktX 
X(PktX)=XX 
Y(PktX)=YX+BreiteX 
Z(PktX)=ZX+HoeheX 
' . links und rechts 
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For IX=XX To XX+BreiteX Step BreiteX 
Inc FIX 

StartX(F LX)=PktX+1 

AnzX(FlX)=4 

FarbeX(FlX)=FarbeX 

I 

Inc PktX 

X(PktX)=IX 

Y(PktX)=YX 

Z(PktX)=2X 

Inc PktX 

X(PktX)=IX 

Y(PktX)=YX+BreiteX 

Z(PktX)=ZX 

Inc PktX 

X(PktX)=IX 

Y(PktX)=YX+BreiteX 

Z(PktX)=ZX+Hoehe% 

Inc PktX 
X(PktX)=IX 
Y(PktX)=YX 
Z(PktX)=ZX+HoeheX 
Next IX 

1 . vorne und hinten 

For IX=YX To YX+BreiteX Step BreiteX 
Inc FIX 

StartX(FlX)=PktX+1 

AnzX(FlX)=4 

FarbeX(FlX)=FarbeX+2 

Inc PktX 
X(PktX)=XX 
Y(PktX)=IX 
Z(PktX)=ZX 
Inc PktX 

X(PktX)=XX+BreiteX 
Y(PktX)=IX 
Z(PktX)=ZX 
Inc PktX 

X(PktX)=XX+BreiteX 
Y(PktX)=IX 
Z(PktX)=ZX+HoeheX 
Inc PktX 
X(PktX)=XX 
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Y(PktX)=IX 
Z(PktX)=ZX+HoeheX 
Next IX 
Return 



Abb. 30: Quader 


5.6.2 Das Tortenstück 

Das Tortenstück will die Koordinaten, den Radius, die Höhe, 
den Anfangswinkel relativ zu einer vertikalen Linie durch den 
Tortenmittelpunkt, den dazugehörigen Endwinkel und ebenfalls 
die Farbe übergeben haben. 

Es werden dann genau wie beim Quader Flächen definiert, nur 
daß es hier natürlich mehr Randflächen sind, damit der runde 
Eindruck entstehen kann. 


Procedure Def_torte(X%,YX,ZX t RadiusX,HoeheX,Anf_winkelX,End_winkelX, 
FarbeX) 

Inc FIX 

StartX(FlX)=PktX+1 
Start_X=StartX(FlX) 

I 

Inc PktX 
X(PktX)=XX 
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Y(PktX)=YX 

Z(PktX)=ZX+HoeheX 

■ 

AlphaX=Anf_wi nkelX 
Repeat 
Inc PktX 

X(PktX)=XX+Sin(AlphaX/180*Pi)*RadiusX 
Y(PktX)=YX+Cos(AlphaX/180*Pi)*RadiusX 
Z(PktX)=ZX+HoeheX 
AlphaX=(Int(AlphaX/10)+1)*10 
Until AlphaX>=End_winkelX 
AlphaX=End_winketX 
Inc PktX 

X(PktX)=XX+Sin(AlphaX/180*Pi)*RadiusX 
Y(PktX)=YX+Cos(AlphaX/180*Pi)*Radius% 
Z(PktX)=ZX+HoeheX 

I 

AnzX(FlX)=PktX-StartX(FlX)+1 
Anz_X=AnzX(FIX) 

FarbeX(FlX)=FarbeX 
For IX=Start_X To Start_X+Anz_X-1 
Inc FIX 

StartXC FlX)=PktX+1 
AnzX(FIX)=4 
Farbe%(FlX)=FarbeX+1 

Inc PktX 
X(PktX)=X(IX) 

Y(PktX)=Y(IX) 

Z(PktX)=ZX 

I 

Inc PktX 
X(PktX)=X(IX) 

Y(PktX)=Y(IX) 

Z(PktX)=ZX+HoeheX 

I 

If IX=Start_X+Anz_X-1 
Inc PktX 

X(PktX)=X(Start_X) 

Y(PktX)=Y(Start_X) 

Z(PktX)=ZX+HoeheX 

I 

Inc PktX 

X(PktX)=X(Start_X) 

Y(PktX)=Y(Start_%) 

Z(PktX)=ZX 
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Else 

Inc PktX 
X(PktX)=X(IX+1) 
Y(PktX)=Y(IX+1) 
Z(PktX)=ZX+HoeheX 

I 

Inc PktX 
X(PktX)=X(IX+1) 
Y(PktX)=Y(IX+1) 
Z(PktX)=ZX 
Endif 

i 

Next IX 
Return 



5.6.3 Zeichenroutine für perspektivische Diagramme 

Procedure Zeige grafik(EntfernungX,WinkeIX) 

1 ##### Z-Achse drehen -> Drehung 
Cos_drehung=Cos(150/180*Pi) 

Sin_drehur>g=Sin(150/180*Pi) 

Clr IX 
Repeat 
Inc IX 
X_=X(IX) 
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X(IX)=Cos_drehung*X_-Sin_drehung*Y(IX) 

Y(IX)=Cos_drehung*Y(IX)+Sin_drehung*X_ 

Until IX=PktX 

1 ##### X-Achse drehen -> Winkel 
Cos_winkel=Cos(WinkelX/180*Pi) 

Sin_winkel=Sin(UinkelX/180*Pi) 

Clr IX 
Repeat 
Inc IX 
Y_=Y(IX) 

Y(IX)=Cos_winkel*Y_-Sin_winkel*Z(IX) 

Z(IX)=Cos_uinkel*Z(IX)+Sin_winkel*Y_ 

Until IX=PktX 

1 ##### Xmonitor, Ymonitor berechnen 
Clr IX 
Repeat 
Inc IX 

XmonitorX(IX)=(X(IX)*EntfernungX)/(EntfernungX+Y(IX))+320 
Y_monitorX(IX)=-(Z(IX)*EntfernungX)/(EntfernungX+Y(IX))+200 
Pktentf(IX)=Sqr(X(IX) A 2+(EntfernungX+Y(IX)) A 2+Z(IX) A 2) 
Until IX=PktX 

' ##### minimale Entfernung berechnen 
Clr IX 
Repeat 
Inc IX 

EntferhunglIX)=10000000 
For JX=StartX(IX) To StartX(IX)+AnzX(IX)-1 
If Pkt_entf(JX)<Entfernung(IX) 

EntfernunglIX)=Pkt_entf(JX) 

Endi f 
Next JX 
Until IX=FIX 
Clr IX 
Repeat 
Inc IX 
Clr Summe 

For JX=StartX(IX) To StartX(IX)+AnzX(IX)-1 
Add Summe,Pkt entf(JX) 

Next JX 

Add Entfernung(IX),Summe/AnzX(IX) 

Until IX=FIX 

1 ##### Sortieren nach Entfernung 
For JX=FIX Dounto 1 
Min=10000000 
For IX=1 To JX 

If Entfernung(IX)<Min 
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Min=Entfernung(IX) 

Irtdex%=IX 
Endif 
Next IX 

Swap StartX(JX),StartX(IndexX) 

Swap AnzX(JX),AnzX(Ir>dex%) 

Swap FarbeXC JX), FarbeX( IrtdexX) 

Swap Entfernung(JX),Entfernung(IrtdexX) 

I 

Next JX 

1 ##### Flächen von hinten nach vorne aufbauen 
Clr IX 
Repeat 
Inc IX 
Clr JX 
Repeat 

XxX(JX)=X_monitorX(StartX(IX)+JX) 
YyX(JX)=Y_monitorX(StartX(IX)+JX) 

Inc JX 

Until JX=AnzX(IX) 

Deffill 1,2,FarbeXCIX) 

Polyfill AnzX(IX),XxX(),YyX() 

Until IX=FIX 
Return 


Was kann ich damit nun machen? Schauen Sie sich einmal die 
beiden folgenden Bilder an. Diese Diagramme, in ein Zeichen¬ 
programm übernommen, weiterbearbeitet und dann präsentiert, 
wirken für sich! 


Das erste Beispiel zeigt das Balkendiagramm: 
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Abb. 32: Balkengrafik 



Puch eine Statistik. Oder 'ne Stadt? 


Ppnl 


März 


Feb. 


Jan. 


Abb. 33: Und so könnte eine Balkengrafik nach weiterer Bearbeitung mit einem 
Malprogramm oder eigenen BASIC-Routinen aussehen. 
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Dirn W(20) 

Data 10,40,30,20 
Data 15,50,12,60 
Data 30,20,20,40 
For N%=1 To 9 

Read U(N%) 

Hext N% 

I 

aDef_quader(50,-5,0,35,U(7),2) 
aDef_quader(50,-5,U(7),35,U(8),4) 
oCef_quader(50,-5,W(7)+W(8),35,W(9),6) 
S10ef_quader(50,50,0,35,W(1),2) 
S)Def_quader(50,50,W( 1),35,U(2),4) 
51Def_quader(50,50,W(1 )+W(2) ,35,U(3) ,6) 
S)Def_quader(50,110,0,35,W(4),2) 
aDef_quader(50,110,W(4),35,U(5),4) 
aDef_quader(50,110,U(4)+W(5),35,U(6),6) 
aDef_quader(50,180,0,35,W(7),2) 

Sl0ef_quader(50,180,U(7),35,U(8),4) 
a0ef_quader(50,180,W(7)+U(8),35,W(9),6) 
azeigegrafik(10000,30) 

Do 

Exit If Housek 
Loop 
End 

Das zweite Beispiel baut eine Tortengrafik auf: 


a0ef_torte(0,0,0,150,50,0,50,1) 
aDef_torte(30,0,0,150,50,50,120,2) 

30ef_tortet 0,0,0,150,50,120,220,3) 
aüef_torte(0,0,0,150,50,220,250,4) 
aDeftortetO,0,0,150,50,250,300,5) 
aOef_torte(0,0,0,150,50,300,360,6) 

I 

aze ige_g rafik(10000,30) 

Do 

Exit If Housek 
Loop 
End 

Das Ergebnis nach der Aufbereitung durch ein Malprogramm 
• sehen Sie in der folgenden Abbildung. 
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17Z 


12Z 


18Z 


Dies ist eine Statistik! 


Abb. 34: Tortendiagramm 


5.7. Variablen-Referenz 

Den meisten von Ihnen wird bekannt sein, daß jedes ’.BAS’-File 
über einen Vorspann verfügt, in welchem mehrere wichtige Da¬ 
ten vom Interpreter abgelegt werden. 

Nur wenigen wird bekannt sein, wie dieser Header aufgebaut 
ist. Machen Sie sich keine Hoffnung, ich werde es Ihnen auch 
nicht verraten. Aus einem einfachen Grund. Mit genauen 
Kenntnissen über den Aufbau des Headers wäre es spielend 
möglich, mit ’PSAVE’ geschützte Programme zu knacken. Da ich 
nicht davon ausgehe, daß schon jeder über einen GFA-BASIC- 
Compiler verfügt, muß diese Möglichkeit der Programmsiche¬ 
rung erhalten bleiben. 

Was allerdings kein Geheimnis ist, ist die Organisation des Be¬ 
reichs, in dem das BASIC die verwendeten Variablen-, Funkti- 
ons-, Label- und Prozedurnamen abspeichert. Mit diesen 
Kenntnissen ist es wenigstens möglich, sich relativ leicht eine 
Art Referentliste über die verwendeten Namen zu erstellen. 
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Ab dem 10. Byte jeder BAS-Datei liegen 13 Longwords, die der 
Reihe nach die Offsets der einzelnen Variablentypen-Blöcke 
zum Byte 126 der Datei enthalten. Ab Byte 126 werden nämlich 
12 Blöcke gespeichert, die die Variablen-, bzw. Label-, Proze¬ 
dur- und Funktionsnamen enthalten. 

In den Bytes 11 bis 14 steht also der erste Offset, der in jedem 
Fall 0 ist, da ja der Offset sich auf Byte 126 bezieht und der 
erste Block bei Byte 126 beginnt. 

Dieser erste Block enthält alle Real-Variablennamen, die im 
Programm verwendet wurden. Daran schließen sich die Offsets 
für String-Variablennamen, Integervariablennamen, Boolvari- 
ablennamen, Real-Feldnamen, String-Feldnamen, Integer-Feld- 
namen, Bool-Feldnamen, Labelnamen, Prozedurnamen, String- 
Funktionsnamen und Arithmetik-Funktionsnamen an. 

Das 13. und letzte Longword dieser Reihe enthält den Offset 
vom 126. Byte zum ersten Byte des Programmlistings. 

Das war’s eigentlich schon. 

Mit diesen Informationen lassen sich schon fast alle Namen 
feststellen. Wenn da nicht noch ein Problem wäre, nämlich die 
Längen der einzelnen Namen, ohne die natürlich nicht viel aus¬ 
zurichten ist. 

Ich habe bei der Block-Analyse hier die Namenslängen ver¬ 
nachlässigt, indem ich einfach alle Zeichen, die außerhalb des 
für Variablennamen zulässigen Bereich liegen ausklammere. Wo 
die Namenslängen eingetragen sind, soll hier aus oben genannten 
Grund auch nicht verraten werden. 

Trotzdem können wir nun alle Namen selektieren und ein kom¬ 
plette Liste davon erstellen. 

Das folgende Programm tut dies und schreibt alle gefundenen 
Namen als REM-Zeilen in eine Datei mit dem Namen 
’VARS.LST. Von dort kann diese Liste mit ’Merge’ in den Ar¬ 
beitsspeicher geladen und evtl, weiterverarbeitet werden. 
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Der Ausbau dieses Programms zu einem Programm, das eine 
echte Referenzliste aller verwendeten Variablen (evtl, mit Zei¬ 
lennummern oder nach Prozeduren sortiert) enthält, dürfte kei¬ 
nen allzugroßen Aufwand mehr darstellen. 


Prograrmi: BAS_HEAD.BAS 

ii ii im ii ii ii ii min ii ii ii ii ii ii ii mm ii ii ii ii ii ii ii ii ii mi ii ii ii 

BAS - HEADER 


im ii ii ii ii ii mm ii ii n ii ii ii n ii mihi mm im ii ii ii ii ii ii ii ii ii l 


Dim B.lenX(12),Vtp$(12) ! Feld für Blocklängen und Typen 

Fileselect "•.BAS","",SS ! BAS-Programm wählen 

If SS<>"" And SS<>".BAS" And Exist(SS) ! Datei existiert? 


Open "I*',#1,SS 
Seek #1,10 
For IX=0 To 12 
Read Vtp$(IX) 

Bget #1,Varptr(B.len%(IX)),4 
Next IX 
For IX=1 To 12 

If B.lenX(IX)>B.lenXC IX-1) 
Seek #1,126+B.IenX(IX-1) 


Datei öffnen 

Filepointer auf Offset-Tabelle 
13 Offsets 

Typenbezeichnung lesen 
Block-Offset einiesen 

12 Blöcke 
Block belegt? 

Filepointer auf Blockstart 


Titel$=Left$(Vtp$(IX-1),Len(Vtp$(IX-1))-10) ! Btocktitel 

Vblk$=VblkS+.+Chr$(13)+.+TitelS+Chr$(13) !-| Titelzeile 

VblkS=Vblk$+.+String$(30,"=")+ChrS(13) !-j bilden 

For JX=1 To B.lenX(IX)-B.lenXOX-l) ! Blocklänge durchgehen 


ByteX=Inp(#1) 

Add JX.ByteX 
Buff$=SpaceS(ByteX) 

Bget #1,Varptr(BuffS),ByteX ! 
If Buff$>"" ! 

If LeftS(Titel$,3)o ,, Pro" 
Vblk$=Vblk$+" 1 

I 

Else 

Vblk$=Vblk$+ ,M 


Endif 
Endi f 
Next JX 
Endi f 
Next IX 
CI ose 


Namenlänge einiesen 
Zeichen-Zähler 
Puffer vorbereiten 
Namen ei niesen 
Name gültig? 

kein Prozedurblock? 

"+Buff$+Right$(Vtp$(IX-1),10)+Chr$(13) 

! Namen+Kennzeichnung einbinden 

! Prozedurblock? 

,, +Right$(VtpS(IX-1 ),9)+" H +BuffS+Chr$(13) 
kennzeichnung+Namen einbinden 


Nächsten Namen 


i 


! Nächsten Block 








302 


GF A-BAS IC Tips <£ Tricks 


Open "0",#1,"VARS.LST" ! LST-File öffnen 

Print #1;Vblk$ ! Rem-Zeilen-Puffer schreiben 

CI ose 
Endi f 
Edit 

Data "Realvariablen " 

Data "Stringvariablen $ " 

Data "Integervariablen X " 

Data "Boolvariablen ! " 

Data "Realfelder () " 

Data "Stringfelder $() " 

Data "Integerfelder %() " 

Data "Boolfelder !() " 

Data "Labels : " 

Data "Prozeduren Procedure" 

Data "Numerische Funktionen (FN) " 

Data "Stringfunktionen $ (FN$) " 

Data 


5.8 Der verboxte Screen 

Wie oft steht man vor dem Problem, daß man verschiedene Pbo- 
xen oder Boxen auf dem Bildschirm systematisch oder symme¬ 
trisch aufzubauen hat, um z.B. Fenster zu umrahmen oder Aus¬ 
wahlboxen anzubieten. Meistens artet das dann in guter alter 
Trial and Error’-Tradition (Versuch und Irrtum) dahin aus, daß 
man in mehrmaligen Versuchen die Eck-Koordinaten dieser Bo¬ 
xen bestimmt. Dieses kleine Programm soll nun das lästige Hin 
und Her zwischen Boxdaten-Änderung und Test unnötig 
machen. 

Da diese Boxen oft in einen schon bestehenden Screen-Aufbau 
eingebaut werden müssen, können Sie in diesem Fall vor Pro¬ 
grammstart im Direktmodus den Befehl ’@Xcl(0)’ eingeben. Da¬ 
durch wird erreicht, daß der Bildschirm bei Programmstart nicht 
gelöscht wird und Sie die Boxen in einen beliebigen, vorher zu 
erzeugenden Screen-Aufbau einfügen können (s. ’Spezial- 
Adressen’). 

Um eine Box zu erzeugen, drücken Sie eine Maustaste, wodurch 
eine der Box-Ecken fixiert ist. Ziehen Sie nun die Box mit 
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weiterhin gedrückter Maustaste auf. Lassen Sie die Maustaste 
los, befindet sich die definierte Box in der Schwebe und kann 
an einer beliebigen Stelle plaziert werden. Nachdem Sie die Po¬ 
sition der Box bestimmt haben, drücken Sie nochmal eine der 
beiden Maustasten, und die Box wird fixiert (gesetzt). 

Das Setzen der Boxen erfolgt bei leeren Boxen mit der linken 
und bei vollen Pboxen mit der rechten Maustaste. Da diese Bo¬ 
xen dann als Objekte in einem Feld abgelegt werden, können Sie 
beliebige Boxen auch wieder löschen, wenn Sie meinen, daß ihre 
Position doch nicht richtig gewählt ist. Dazu fahren Sie mit dem 
Mauskreuz exakt(!) auf eine Ecke der zu löschenden Box, 
drücken die <Delete>-Taste, und die Box verschwindet. Eine 
andere Möglichkeit des Löschens besteht darin, daß die 
<Undo>-Taste gedrückt wird, womit Sie jeweils die letzte Box 
löschen. 

Außerdem können Sie die zuletzt gesetzte Box beliebig oft ko¬ 
pieren, indem Sie die <Tab>-Taste und dann die jeweilige 
Maustaste (Box/Pbox) drücken. Haben Sie die <Tab>-Taste ge¬ 
drückt, jedoch die Box noch nicht mit der Maustaste fixiert, 
verschwindet die kopierte Box wieder mit nochmaligem Druck 
auf die <Tab>-Taste. 

Möchten Sie irgendeine andere Box kopieren, fahren Sie wieder 
mit dem Mauskreuz exakt(!) auf eine Ecke der zu kopierenden 
Box und drücken dann die <Insert>-Taste. Die neue Box er¬ 
scheint und kann wieder mit einer der Maustasten gesetzt wer¬ 
den. Ist sie noch beweglich, verschwindet Sie wieder, indem Sie 
die <Tab>-Taste drücken. 

Drücken Sie dagegen die <Ctlrhome>-Taste, werden alle Boxen 
gelöscht, und das Programm startet neu. 

Um den Komfort noch etwas abzurunden, können Sie eine Box 
(solange Sie noch im 'Schwebezustand’ ist) mit den vier Cursor- 
Pfeiltasten in der Größe beliebig verändern. 
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Damit Sie während des Programms nicht hilflos sind, können Sie 
nun noch mit einem Druck auf die <Help>-Taste ein Info-Fen¬ 
ster aufrufen, das Ihnen sämtliche Programm-Funktionen an¬ 
zeigt. 

Haben Sie den Screen erstellt, drücken Sie die <Esc>-Taste, wo¬ 
mit das Programm beendet und die Boxdaten ggf. in einer LST- 
Datei als ’BOX’/’PBOX’-Befehlszeilen oder als Data-Zeilen ab¬ 
gelegt werden. Den Data-Zeilen ist dann eine Identifikations- 
Ziffer vorangestellt, welche Auskunft über den Box-Typ gibt 
(l=Box / 2=Pbox). 

Als Parmeter übergeben Sie der Hauptprozedur die Anzahl der 
maximal zu zeichnenden Boxen (hier: 100), damit das Objekt- 
Feld eingerichtet werden kann. Außerdem wird eine Pointer- 
Variable erwartet, die nach Prozedurende die tatsächlich ge¬ 
zeichnete Anzahl enthält (Evtl, vorher @Xcl(0) im Direktmodus 
eingeben). 


Programm: SETBOXS.BAS 


IIIIIIIIIIII llll IIIIIMIM IIIIIIIIIIIIII llll IIIIII Milli Milli llll IIII 

SET - BOXES 


i ii ii ii n ii ii ii ii n ii ii ii iinii ii ii ii ii ii iiiiii ii ii iiii ii ii nii mii im i 


Sget ScreenS I alte Screen sichern 

On Break Gosub Ende ! kein Abbruch möglich 

Deffill ,0,0 
aSetbox(100,*BackX) 

Print "Anzahl gesetzter Boxen : ";BackX 
Edi t 

Procedure Setbox(AnzahIX,FaktX) 

Deffill ,0,0 

Local XIX,X2X,X3X,X4X,Y1X,Y2X,Y3X,Y4X,Xlo$,Ylo$,KX,AX,IX,JX,B$,BX 
Dirn B$(AnzahIX),KX(2,AnzahIX,4) ! Felder für die fertigen 
1 ! Programmzeilen und die Objektdaten 

Start: 

Defmouse 5 
E.flgX=0 
Repeat 
N ext: 
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Repeat 

I 

AX=Asc(Right$(InkeyS)) 
Until Mousek Or AX Or E.flg% 
Repeat 

Until Len(lnkey$)=0 
If A%=27 
BX=AX 


! Auf Taste, Hausklick oder 
! Abbruchflag warten 


! Tastaturpuffer löschen 
! <Esc>-Taste = Ende? 


Goto Off 
Endi f 
If A%=98 
3Help 
Goto Next 
Endi f 

Graphmode 3 
If A%=71 


! dann zum Ausgang 

! <Help>-Taste? 

! Hilfe-Screen ausgeben 


! <ClrHome>-Taste? 


Alert 2,"Alle Boxen löschen?" 
If Bcl%=1 
Sput ScreenS 
Run 
Else 

Goto Next 
Endi f 
Endi f 
If AX=97 
If IX>0 


2," OKAY | NEIN ",Bc 1% 

! alte Screen restaurieren 
! Programm neu starten 


! <Undo>-Taste ? 

! Boxen vorhanden? 


Graphmode 1 
Sput ScreenS 
Dec 1% 

For J%=1 To 2 

aici t k j%, i%> 

Next JX 


alte Screen 
Index -1 
Boxtyp 

Box-Objektdaten löschen 


S>Draw.mat 
Graphmode 3 
Goto Next 
Else 

Sput Screen$ 
Goto N ext 


! alle anderen Boxen neu 


keine Boxen! 

alte Screen restaurieren 
und weiter 


Endi f 
Endi f 

If A%=127 Or A%=82 
For J%=0 To IX-1 
For LX=1 To 2 


<Delete> oder <Insert>-Taste? 
alle Boxen durchgehen 
beide Boxtypen 


If Mousex=KX(LX,JX,1) Or Mousex=KX(L%,JX,3) 
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If Mousey=KX(LX,JX,2) Or 


FlagX=LX ! 

Endif 
Endif 
Hext IX 

If FlagX>0 ! 

If AX=127 I 

Graphmode 1 

3Kill(FlagX,JX) ! 

Sput ScreenS ! 

üBraw.mat ! 

Graphmode 3 

Else ! 

X1X=KX(FlagX,JX,1) ! 

Y1X=KX(FlagX,JX,2) ! 

X2X=KX(FlagX,JX,3) ! 

Y2X=KX(FlagX,JX,4) I 

Endif 
FlagX=0 
Endif 
Next JX 
If AX=127 
Goto Next 
Endif 
Endi f 

If AX=9 Or AX=82 ! 

Goto Copy ! 

Endi f 

cDDrawbox ■ 

Copy: 

SIF i xbox ! 

If (KX=1 Or KX=2) And BX<>9 
ainitarray ! 

Endif 
Off: 


Mousey=KX(LX,JX,4) 

Mauszeiger exakt auf einer 
Ecke einer Objektbox? 
Boxtyp weitergeben 


Box gefunden? 
<Delete>-Taste ? 

Objekt-Eintrag löschen 
alte Screen 

alle anderen Boxen neu 

<Insert>-Taste! 

-- Boxdaten 

der gewählten 
Box werden 
- - aktuelle Daten 


<Tab>- oder <Insert>-Taste? 
dann weiter zur Boxpositionierung 

neue Box Zeichen 

Box positionieren 

Box ins Objekt-Array eintragen 


Until BX=27 Or E.flgX ! <Esc> = Abbruch 

Al$="Programni-Ende ! |Box-Datas abspeichern ?" 
Alert 2,Al$,1," OKAY | NEIN | CONT ",BX 
If BX=1 
*FaktX=IX 
asaving 
Endi f 
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Programmstart-Cls wieder an 


! neue Box zeichnen 


If B%=3 
Goto Start 
Endif 

axcid) 

Return 

Procedure Drawbox 
Mouse X1X,Y1X,XX 
Repeat 

Mouse X2X,Y2X,XX 
Box XIX,Y1X.X2X,Y2X 
Repeat 

Mouse X4X,Y4X,XX 

Until X2X<>X4X Or Y2X<>Y4X Or XX=0 
Box XIX,Y1X,X2X,Y2X 
Until KX=0 Or E.flgX 
Return 

Procedure Fixbox ! Box positionieren 

Repeat 

Mouse X3X,Y3%,KX 

Box X3X-(X2X-X1X),Y3X-(Y2X-Y1X),X3X,Y3X 
Repeat 

Mouse X4X,Y4X,XX 
BX=Asc(Righ t$(Inkey$)) 

Until X3X<>X4X Or Y3X<>Y4X Or ICX Or BX Or E.flgX 
Box X3X-(X2X-X1X),Y3X-(Y2X-Y1X),X3X,Y3X 


If BX=75 ! 

Dec XIX ! 

Endi f 

If BX=72 ! 

Dec Y1X I 

Endi f 

If BX=77 ! 

Inc XIX ! 

Endi f 

If BX=80 ! 

Inc Y1X ! 

Endi f 

Until XX Or BX=9 Or BX=27 Or E.flgX 
Return 

Procedure Initarray ! 

Graphmode 1 

Xlo$=Str$(X3X-(X2X-XlX)) ! 

Ylo$=Str$(Y3X-(Y2X-Y1X)) ! 

If XX=2 ! 


<Pfeil-links>-Taste? 
X-Xoordinate -1 

<Pfeil-hoch>-Taste? 
Y-Xoordinate -1 

<Pfeil- rechts»-Taste? 
X-Xoordinate +1 

<Pfeil-runter»-Taste? 
Y-Xoordinate +1 


Objektdaten eintragen 


X-Ecke links oben 
Y-Ecke links oben 
rechte Maustaste? 


für Befehls- 
zei le 


Pbox X3X-(X2X-X1X),Y3X-(Y2X-Y1X),X3X,Y3X ! dann Pbox zeichnen 
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B$(IX)="Pb "+Xlo$+","+Ylo$+","+St r$(X3X)+","+St r$(Y3X) ! Befehls- 
1 ! Zeile 

Else ! linke Maustaste! 

Box X3X-<X2X-X1X),Y3X-(Y2X-Y1X),X3X,Y3X ! dam Box zeichnen 

B$(IX)=“B ,, +Xlo$+" I ,, +Ylo$+","+Str$(X3X)+ ,, f "+Str$(Y3X) ! Befehls- 

' ! Zeile 

Endi f 

KX(KX,IX,1)=X3X-(X2X-X1X) ! Daten ins Feld eintragen 

KX(KX,IX,2)=Y3X-(Y2X-Y1X) ! 

KX(KX,IX,3)=X3X ! 

KX(KX,IX,4)=Y3X ! 

Inc IX ! Box-Zähler +1 

Pause 15 
Return 

Procedure KilKJX, IX) ! Box im Feld löschen 

KX(JX,IX,1)=0 ! Daten auf Null 

KX(JX,IX,2)=0 ! 

KX(JX,IX,3)=0 ! 

KX(JX,IX,4)=0 ! 

Return 

Procedure Drau.mat ! alle Boxen zeichnen 

For ZX=0 To IX-1 

Box KX(1,ZX,1),KX(1,ZX,2),KX(1,ZX,3),XX(1,ZX,4) 

Pbox KX(2,ZX,1),XX(2,ZX,2),XX(2,ZX,3),KX(2,ZX,4) 

Next ZX 
Return 

Procedure Saving I Zeilen abspeichern 

Al$="Als Box/Pbox-Zeilen|oder als Data-Zeilen?" 

Alert 2,Al$,0,"(P)Box|Datas",BkX 
Fi leselect "\*.LST ,, , ,, .LST»,Boxlst$ 

If Boxlst$>"" And Boxlst$o"\.LST" And BoxlstS<>"\" 

Open "0",#99,Boxlst$ 

For JX=0 To IX 
If BkX=2 
For MX=1 To 2 

If KX(MX,JX,1)>0 And KX(MX,JX,2)>0 
If KX(MX,JX,3)>0 And KX(MX,JX,4)>0 
Print #99;"D »;MX;",";ICX(MX,JX,1); ,, ,";kX(MX,JX,2); 

Print #99;",";KX(MX,JX,3);",";KX(MX,JX,4) 

Endi f 
Endi f 
Next MX 
Else 

Print #99,B$(JX) 

Endif 
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Next J% 

Close #99 
Endi f 
Return 

Procedure Help 
Graphmode 1 

Get 100,75,540,325,H.scrS 
Pbox 100,75,540,325 
Pbox 102,77,538,323 

Print At(20,7);»S E T B 0 X INFO» 

Print At(17,9);"Maustaste links = leere Box" 

Print At(17,10);"Maustaste rechts = weiß gefüllte Pbox" 

Print At(17,11);"<UND0> - Taste = letzte Box löschen" 

Print At(17,12);"<DELETE> - Taste = Box unter Mauszeiger löschen" 

Print At(17,13);"<CLRH0ME>- Taste = alle Boxen löschen" 

Print At(17,14);"<TAB> - Taste = letzte Box kopieren" 

Print At(17,15);"<INSERT> - Taste = Box unter Mauszeiger kopieren" 

Print At(17,16);"<CURS0R> - Tasten = Schwebebox-Größe variieren" 
Print At(17,17);"<HELP> - Taste = dieses INFO" 

Print At(17,18);"<ESC> - Taste = Programmende" 

Print At(35,20);"T ASTE" 

Repeat 

Until Len(Inkey$) 

Put 100,75,H.scrS 
Return 

Procedure Xcl(FlgX) ! flg%=0=cls off / flg%<>0=cls on 
Local AS 
A$=Space$(3000) 

Bmove Basepage,Varptr(AS),3000 
If FlgX=0 

Poke Basepage+Instr(AS,Chr$(27)+"E"),Asc("H") 

Else 

Poke Basepage+Instr(A$,Chr$(27)+"H"),Asc("E") 

Endif 

Return 

Procedure Ende 
E.flgX=1 
Cont 
Return 
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5.9 "Kalkuliere." 

Da das GFA-BASIC, wie Sie auch durch dieses Buch erfahren 
können, ein nahezu selbständiges Entwicklungssystem ist, dürfen 
natürlich auch die kleinen Bonbons, die einer solchen Sprache 
zustehen, nicht fehlen. 

Dieser kleine 'Taschenrechner’ ist in seinem Format und seinen 
Funktionen so gestaltet, daß er bequem in jeder Tasche Platz hat 
und trotzdem für die üblichsten Operationen verwendbar ist. 

Da er sogar über eine Prozent- und Quadrierungsautomatik 
verfügt, wird er auch den etwas höheren Ansprüchen gerecht. 
Die Potenz- und Wurzelarithmetik nicht zu vergessen. 

Sein Aufruf und seine Bedienung sind denkbar einfach. 

Auch in diesem Listing finden Sie einige nützliche Anregungen 
zur Weiter- Entwicklung in eigenen Programmen. 

| IIIIIIIIIIIIIIIIIIIIII MM IIIIIIIIIIIIII MH Mil IIIIIIIIIIIIIIIIIIIIII | 

MINI • CALCULATOR 


i iiiiii'iiHiiiiiiiiiiiiiiiimiiiimiiiiimiiiiiiiiiiiMiMimiHii i 

aCalc(160,100,29,16) 

Die ersten beiden Übergabe-Parameter bestimmen die X/Y-Po- 
sition des Rechners. Wird hier eine Null übergeben, richten sich 
die Koordinaten nach der aktuellen Mausposition. 

Mit dem dritten Parameter können Sie das Füllmuster des Rech¬ 
ners bestimmen und mit dem vierten die Schriftart der Ziffern¬ 
tasten (0-31). Dadurch sind auch individuelle Variationsmöglich¬ 
keiten in der Gestaltung des Rechners gegeben. 
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1-23 23 Punkt-Füllmuster 

24-36 13 Linien-Füllmuster 

37-47 Diagonalstreifen 

48-71 ATARI-, bzw. selbstdefiniertes Füllmuster 
71-... weiß 



Abb. 35: GFA-’Taschen’-Rechner 


Edi t 

Procedure Calc(LX,OX,FX,CX) 

Restore D.atas ! Zeiger auf Tastendatas 

Local BackS,Back2$,Opi$,0p2$.Funkt,_doneX,Ergebnis,RS 
Local XoX.YoX,FunktionX,IX,JX,KX,XX,YX,XpX,YpX,Tast._indexX 
If LX=0 Or OX=0 ! X/Y-Parameter 0? 

LX=Mousex ! X-Koordinate 

0%=Mousey ! Y-Koordinate 

Endi f 

If (LX-55 Or OX-55)<0 Or LX+55>639 Or OX+55>399 

1 ! Liegt der Rechner außerhalb des Bildschirms? 

LX=320 ! dann Rechner in Bild- 

O%=200 I mitte positionieren 

Endi f 


Dpoke Gintin.LX !.. 

Dpoke Gintin+2,0X ! 

Dpoke Gintin+4,2 ! 

Dpoke Gintin+6,2 !.AES-Growbox 

Dpoke Gintin+8,LX-55 ! 

Dpoke Gintin+10,OX-55 ! 

Dpoke Gintin+12,110 ! 

Dpoke Gintin+14,110 ! 

Gemsys 73 !. 1 

Graphmode 1 
Deftext 1,0,0,13 
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Get LX-55,OX-55,LX+56,OX+56,BackS ! Hintergrund sichern 

Deffill ,0,0 

Pbox L%-55,0%-55,LX+55,OX+55 !-. 

Box LX-55,OX-55,LX+56,OX+56 ! 

Deffill ,F% Div 24+2,FX Mod 24 ! 

Pbox LX-52,OX-52,LX+52,OX+52 !— Rechner zeichnen 

Deffill ,0,0 ! 

Pbox LX-50,0%+32,LX+50,OX+50 !-' 

Deftext 1,CX,0,6 

For IX=1 To 4 !- -. 

For JX=1 To 5 ! 

Pbox LX-69+JX*20,OX-67+IX*20,LX-51+JX*20,OX-53+IX*20! 

Box LX-69+JX*20,0%-67+IX*20,LX-52+JX*20,OX-54+I%*20 ! 

If IX<3 ! 

Graphmode 2 ! 

Text LX-65+JX*20,OX-57+IX*20,Chr$(47+(IX-1)*5+JX) ! 
Graphmode 1 ! 

Endif ! 

Next JX ! 


Tasten 
zeichnen 


Next IX 
Graphmode 2 
Deftext ,0,,6 
For KX=1 To 12 
Read XX,Y,ZX 
Z$=CHRS(ZX) 

Text LX-71 + XX,0X+2+Y*10, ZS 
Next K% 

Graphmode 2 

Line LX-50.0X+41,LX+50,O%+41 
Deftext ,0,,4 

Text LX-47,0X+39,96,"MINI•CALCULATOR" 
Text LX-47,0X+48,96,"TIPS UND TRICKS" 
Pause 40 
For KX=1 To 8 

Get LX-47.0X+34,LX+47.0X+40,R1S 
Get LX-47,OX+43,LX+47,OX+48,R2S 
Pause 3 

Put LX-47,0X+33,R1$,3 
Put LX-47,0X+44,R2$,3 
Next KX 

Text LX+43.0X+47, M CHR$(9)" 


! - 1 


- Funktions- 
Tasten 


! - - . 

( 

!- Ausgabe- 
Fenster 

i - - - 


!- Scroll- 
! Trick 

i 

! - - • 

! Help-Button 


Box LX-68+(JX-1)*20,OX-66+(IX-1)*20,LX-53+(JX-1)*20,0%-55+(IX-1)*20 
Box LX-68+(JX-2)*20,OX-66+(IX-1)*20,L%-53+(JX-2)*20,0%-55+(IX-1)*20 
Box LX-67+(JX-3)*20,OX-65+(IX-1)*20,LX-54+(JX-3)*20,OX-56+(I%-1)*20 
Graphmode 1 
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Ausgabe-Fenster löschen 
Werte-Ausgabe begrenzen 
Hauptschleife 
Mausstatus 

Tasten-X-Index berechnen 
Tasten-Y-Index berechnen 
Maustaste gedrückt? 


aSweep 
Defnum 10 
Repeat 

Mouse X%,Y%,K% 

Xp%=Int((X%-(L%-50))/20)+1 
Yp%=Int((Y%-(0%-50) )/20)+1 
If K%>0 

If Xp%=5 And Yp%=5 And Y%>0%+42 And X%>L%+41!Help-Button gewählt? 

3Help ! 

Endi f 

If Xp%>0 And Xp%<6 And Yp%>0 And Yp%<5! 

Oeffill ,1,1 
Graphmode 3 

Xo%=(Xp%-1)*20 ! 

Yo%=(Yp%-1)*20 ! 

Pbox L%-48+XoX,0/£-46+Yo°4,L%-33+Xo%,0%-35+Yo% ! 

Pause 6 

Pbox L%-48+Xo%,0%-46+Yo%,L%-33+Xo%,0%-35+Yo% ! 

Graphmode 1 
Deffill ,0,0 

Tast._index%=(Yp%-1)*5+Xp% ! 

If Tast._index%>0 And Tast . \ ndex%<11! 

SSweep 

If Funkt._done%=0 
If Len(Op1$)<15 

Opi$=Op1$+Str$(Tast._index%-1)! 

Text L%-47+96-Len(0p1$)*6,0%+39,0p1$ ! und ausgeben 
Else ! String > 14 Zeichen! 

aiong(OplS) ! Fehlermeldung! 

Endi f 

Else ! Funktion schon bestimmt! 


Helptext zeigen 
Taste angeklickt? 


X -Blinkbox-Offset 
Y-Bl inkbox-Offset 


! - -Bl inkbox 


Absoluter Tastenindex 
Zifferntaste gewählt? 
Ausgabefenster löschen 
Noch keine Funktion? 
I.Uert < 15 Zeichen? 
Wertstring bi Iden 


If Len(Op2$)<15 ! 2. Wert < 15 Zeichen? 

Op2$=Op2$+Str$(Tast._index%-1)! Wertstring bilden 
If Funkt._mem%=1 And Funktion%=3 'letzte Funktion war '+' 

1 ! und neue F. ist 7 

Text L%-47+96-(Len(0p2$)+1)*6,OX+39,Op2$+"%" ! Wert + 

1 ! Prozentzeichen ausgeben 

Else ! sonst 

Text L%-47+96-Len(0p2$)*6,0%+39,0p2$! 2.Wert ausgeben 
Endi f 


Else ! 2.Wert >14 Zeichen! 

3Long(Op2$) ! Fehlermeldung 

Endi f 
Endi f 
Endi f 
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If Tast._indexX=13 ! Minus-Zeichen gewählt? 

If Funkt._doneX=0 And Op1$="" ! Funktion und I.Wert noch 

1 (nicht bestimmt? 

asweep ! Ausgabefenster löschen 

0p1S="-" ! erstem Wert ein Minus- 

1 ! Zeichen voranstellen 

Text LX-47+96-Len(0p1$)*6,0X+39,0p1$! und ausgeben 
Tast._indexX=0 ! sonst nichts tun 

Endi f 


If Funkt,_doneX=1 And 0p2$="" ! Funktion bestimmt, aber 

1 ! noch kein 2. Wert? 

aSweep ! Ausgabefenster löschen 

0p2S="-" ! zweitem Wert ein Minus- 

' ! Zeichen voranstellen 

Text LX-47+96-Len(Op2t)*6,OX+39,Op2$! und ausgeben 
Tast._index%=0 ! sonst nichts tun 

Endi f 
Endi f 


If Tast._ir>dexX>11 And Tast 
Funkt._mem%=Funktion% 
FunktionX=Tast._index%-11 
If Tast._indexX=17 
Tast._ir»dexX=18 

I 

Endi f 


,_indexX<18! Funkt.-taste angeklickt? 
! letzte Funktion merken 
! neue Funktion bestimmen 
! Wurzel(X) gewählt? 

! dann zugleich 'Gleich'- 

! Taste aktivieren 


Funkt. doneX=1 ! Funktion ist aktiv! 

Endi f 

If Tast,_indexX=11 ! Dezimal-Punkt angeklickt? 

If Funkt._doneX=0 And Instr(0p1$,".")=0!Noch keine Funktion 
' ! aktiv und I.Wert enthalt 

1 ! noch keinen Dez.-Punkt'’ 

asweep ! Ausgabefenster löschen 

0p1$=0p1$+"." ! Punkt an I.Wert anfugen 

Text LX-47+96-Len(0p1$)*6,0%+39,0p1$! und I.Wert ausgeben 

Endi f 

If Funkt._done%=1 And Instr(0p2$,".")=0!Funktion schon aktiv, 

1 ! aber 2.Wert enthält 

1 ! noch keinen Dez.-Punkt'’ 

asweep ! Ausgabefenster löschen 

Op2$=Op2$+"." ! Punkt an 2.Wert anfugen 

If Funkt,_memX=1 And FunktionX=3 ! letzte Funktion war 
1 ! und neue F. ist ? 

Text LX-47+96- (Len(0p2$) + 1 )*6,0%+39,0p2$-*"X' : ! Wert + 

1 ! Prozentzeichen ausgeben 
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Else ! sonst 

Text LX-47+96-Len(0p2$)*6,0%+39,0p2$ !2.Uert ausgeben 
Endi f 
Endi f 
Endi f 

If Tast._ir»dex%=18 ! 'Gleich'-Taste angeklickt? 

aSweep ! Ausgabefenster löschen 

If Funkt._done%=1 And 0p2$="" ! Funktion bereits gewählt, 

' ! aber 2.Wertstring leer? 

0p2$=0p1$ ! 2.Wert = I.Uert 

So unscheinbar, wie diese kleine Raffinesse wirkt, so effektiv ist 
sie auch. Hierdurch wird es möglich, den Ergebniswert je nach 
gewählter Funktion zu sich selbst zu addieren, mit sich zu mul¬ 
tiplizieren oder zu quadrieren. Das wird erreicht, indem nach 
Ausgabe des Ergebnisses eine Funktion ( +, * oder A ) gewählt 
wird und statt Eingabe des zweiten Wertes einfach wieder die 
’Gleich’-Taste angeklickt wird. 

Endi f 

If Funkt,_done%=1 And 0p2$>"" ! Funktion gewählt und auch 

1 ! 2.Wert bereits eingegeben? 

If Funkt. mem%=1 And Funktion%=3 !letzte Funktion war '+' 

' ! und neue F. ist '*' ? 

Ergebni s=Val (Op1$)+Va l (OpU )*Va l (Op2S)/100 ! zun I.Uert 
' ! (Wert 2) Prozent des 

' ! 1. Wertes addieren 

Funktion&=0 ! sonst nichts tun 


Auch diese Bedingungsabfrage hat es in sich. Werden direkt 
nacheinander die ’Plus’-, dann die ’Mal’-Taste geklickt, und 
wird anschließend ein Wert eingegeben, wird das als Prozent- 
Funktion interpretiert. D.h., daß bei der nächsten ’Gleich’-Wahl 
der erste Wert, bzw. das Ergebnis mit dem durch 100 geteilten 2. 
Wert multipliziert wird und dieser Wert zum ersten Wert bzw. 
dem Ergebniswert addiert wird. 

Das Verfahren mit Minuswerten ist vergleichbar. Nur daß hier 
nach ’Plus’- und ’Mal’-Wahl die Minustaste angeklickt wird, um 
so einen Minusprozentwert einzugeben. Nach abschließender 
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’Gleich’-Tastenwahl wird dann der 1. Wert bzw. das Ergebnis 
mit dem durch 100 geteilten 2. Wert multipliziert und dieser 
Wert dann vom ersten bzw. dem Ergebniswert abgezogen wird. 


Endi f 
Endi f 

If Funkt._doneX=0 
E rgebnis=Val(OpiS) 

Endi f 

On Error Gosub Error 
If Funktional 

Ergebnis=Val(Op1S)+Val(Op2$) 

Endif 

If FunktionX=2 

Ergebnis=Val(Opi$)■Val(Op2$) 
Endi f 

If FunktionX=3 

Ergebnis=Val(Op1$)*Val(Op2$) 
Endi f 

If FunktionX=4 

E rgebnis=Val(Opi$)/Val(Op2$) 
Endif 

If FunktionX=5 

Ergebnis=Val(Op1$) A Val(0p2J) 
Endif 

If FunktionX=6 
Ergebnis=Sqr(Val(Op1$)> 
Deffill ,1,1 
Graphmode 3 

Pbox LX-8,0X+14,lX+7,0X+25 
Pause 2 

Pbox LX-8,0X+14,LX+7,OX+25 
Graphmode 1 
Deffill ,0,0 
Endif 

Op1S=StrS(Ergebnis) 


(Noch keine Funktion bestimmt? 
! Ergebnis = 1. Wert 

! evtl. Fehler abfangen 
! 'Plus'-Funktion gewählt? 

! Ergebnis = 1. +2. Wert 

! 'Minus'-Funktion gewählt? 

! Ergebnis =1. - 2. Wert 

I 'Mal'•Funktion gewählt? 

! Ergebnis = 1. * 2. Wert 

I 'Durch'-Funktion gewählt? 

! Ergebnis = 1. / 2. Wert 

! 'Potenz'-Funktion gewählt? 

I Ergebnis = 1. A 2. Wert 

! 'Wurzel'-Funktion gewählt? 

! Ergebnis=Wurzel aus I.Wert 
! - - -. 

I 

! 

!- -'Gleich'-Taste 
! betätigt (optisch) 

! 

! 

i - - -1 


(Ergebnis zur Weiterverarbei• 
! tung in 1. Wert übernehmen 
Text LX-47,0X+39,0p1$ (Ergebnis ausgeben 

If Ergebnis<2 A 31-1 And Ergebnis>2 A 31*(-1) I Ergebnis im 
' !Integer-Bereich? 

Text LX-47.0X+48,"HEX$ "+Hex$(Ergebnis)( HEXA-Wert ausgeben 
Else (Wert außerhalb Integer! 

Text LX-47,OX+48,87,"HEXA NUR INTEGER“ (Meldung 

Endif 

Funkt. memX=FunktionX (alte Funktion merken 
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Clr Funkt._done%,Ergebnis,FunktionX,0p2$! alles andere löschen 
Endif 


E. Iabel: 

On Error 

If Tast._indexX=19 
asweep 

If Funkt._doneX=0 
If Len(Op1S)>0 


Error-Rückkehr-Label 
Error-Handling normal 
(R) angeklickt? 
Ausgabefenster löschen 
keine Funktion gewählt? 
1.Wertstring > 0 ? 


Op1$=Left$(Op1$,(Len(Op1$)-1))! letzte Ziffer abschneiden 
Text LX-47+96-Len(0p1$)*6,0%+39,0p1$!neuen I.Wert ausgeben 
Endi f 


Else ! Funktion schon aktiv! 

If Len(Op2S)>0 ! 2.Wertstring > 0 ? 

Op2$=Left$(Op2$,(Len(Op2$)-1))! letzte Ziffer abschneiden 
Text LX-47+96-len(0p2$)*6,0X+39,0p2$!neuen 2.Wert ausgeben 
Endif 
Endif 
Endi f 

If Tast._indexX=20 ! (C) = Clear angeklickt? 

Clr Funkt._doneX,Op2$,Ergebnis,0p1$,FunktionX! alles löschen 
asweep ! Ausgabefenster löschen 

Endi f 
Endi f 
Endi f 


Until Inkey$>"" Or (KX And (XpX>6 Or XpX<0 Or Yp%>6 Or YpX<0)) 


Put LX-55,OX-55,Back$ 

Gemsys 74 

I 

If KX=2 

3Calc(Mousex,Mousey,RandomC 35)+ 


! Abbruch, wenn Tastatur betätigt 
! oder Maustaste außerhalb des 
! Rechners gedrückt wurde 
! Hintergrund restaurieren 
! AES-Shrinkbox mit alten 
! Growshrink-Parametern aufrufen 
! Ausstieg mit rechter Maustaste? 
,Random(21))! rekursiver Aufruf 
! des Rechners an neuer Position 


Obwohl diese Rekursion nichts Weltbewegendes an sich hat, 
wird daran ein Prinzip klar. Bei großen Prozeduren kann es sein, 
daß Variablen nicht als lokal definiert wurden. Bei komplizier¬ 
teren Rekursionen kann es ohne weiteres Absicht sein, Vari¬ 
ableninhalte von einem Aufruf zum nächsten zu erhalten. Wer 
sich solche Rekursionen zutraut, wird auch wissen, wie er in 
diesem Fall zu handeln hat. In den meisten Fällen wird eine re¬ 
kursive Routine in sich geschlossen sein. Um in diesen Fällen 
mit der Kontrolle der Variableninhalte nicht durcheinander zu 
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geraten, sollten die rekursiven Aufrufe jeweils am Ende der 
Routine plaziert werden, da nach Abschluß des letzten Aufrufs 
nur noch die 'Returns’ am Ende der Prozedur passiert werden 
müssen. 

Hauptprogramm ==> zur Procedure XYZ 

Inhalt 

==> zur Procedure XYZ 
Inhalt 

==> zur Procedure XYZ 
Inhalt 

<== Return (zurück zu XYZ) 

<== Return (zurück zu XYZ) 

Hauptprogramm <== Return (zurück zum Hauptprogramm) 


Endi f 
D.atas: 

'+,-,*,v,., A ,x,=,ä,x,>,= 

Data 46,0,43 

Data 66,0,45 

Data 86,0,42 

Data 107,0.1,246 

Data 26,0,46 

Data 25,2.4,94 

Data 30,1.7,120 

Data 67,2,61 

Data 45,1.7,251 

Data 50,2.1,120 

Data 87,2,190 

Data 107,2,189 

Return 

Procedure Long(S.trS) 


Wurden mehr als 14 Zeichen eingegeben, wird hier lediglich 
eine Meldung dazu produziert. 


Text LX-47,0%+39,"ZEILE ZU LANG" 

Pause 10 

Pbox LX-49,O%+33,L%+50,O%+41 
Text LX- 47+96 -Len(S.tr$)*6,0%+39,S.tr$ 
Return 

Procedure Sweep 
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An mehreren Stellen in der Prozedur wird das Löschen des Aus¬ 
gabefensters notwendig. Das passiert hier. 

Pbox L%-49,0%+33,L%+50,0%+41 
Pbox L%-49,0%+42,L%+41,0%+50 
Return 

Procedure Help 


Ebenfalls eine banale Prozedur, die jedoch (ebenso wie die 
Hauptroutine) ein Prinzip verdeutlicht. Die Verwendung von 
Data-Zeigern auf Datas innerhalb der Prozedur, wodurch die 
Selbständigkeit der Prozedur unterstrichen wird. Innerhalb des 
Hauptprogramms ist dann jedoch darauf zu achten, daß eben¬ 
falls mit Data-Zeigern gearbeitet wird, da sonst die Folge der zu 
lesenden Datas durcheinander geraten kann. 

ln dieser Prozedur wird der kleine Help-Screen produziert, so¬ 
bald der kleine Button rechts im Hexa-Ausgabefenster an¬ 
geklickt wurde. Der Helptext wurde extrem kurz gehalten. Sollte 
Ihnen das nicht ausreichen, läßt sich leicht eine mehrseitige, 
ausführlichere Anzeige verwirklichen, indem Sie die Anzeige¬ 
schleife mit Weiteren Texten mehrfach durchlaufen. 


Restore Helptxt 
Local H.txS 

Get L%-52,0%-52,L%+52,0%+52,Back2$ 

Pbox L%-51,0%-51,L%+52,0%+52 
Graphmode 2 
For I%=1 To 16 
Read H.tx$ 

Text L%-49,0%-50+I%*6,100,H.tx$ 

Next 1% 

Pause 10 
Graphmode 1 
Repeat 

Until Mousek Or Len(Inkey$) ! 

Put L%-52,0%-52,Back2! ! 

Pause 10 
Helptxt: 

Data HILFE :,re.Maust.ausserh.,=neue Position 
Data Ergebnis-Anzeige,u.dann + > * X,=X-Proz.-Addition 
Data Ergebnis-Anzeige,u.dann + > * > -X,=X-Proz.-Subtrakt. 


Rechner-Image sichern 
Box löschen 

16 Help-Zeilen 
lesen 

und ausgeben 


Auf Tastendruck warten 
Rechner-Image restaurieren 
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Data Ergebnis-Anzeige,u.dann + * * > =,= Erg. + * A Erg. 
Data (R)= CLEAR letzte Z.,(C)= CLEAR Alles 
Data Eingabe-Folgen,sonst wie üblich! 

Return 

Procedure Error 


Bei auftretenden Systemfehlern während der Rechner-Bedienung 
(Überlauf, Nulldivision etc.) wird in dieser Prozedur auf den 
jeweiligen Error reagiert. Nichts Besonderes also. Die meisten 
von Ihnen werden das wahrscheinlich so handhaben, daß hier 
mehrere 'IT-Abfragen die Error-Nummer feststellen und dann 
in dem jeweiligen ’lf’-Block darauf reagiert wird. 

Um diese ’ir-Abfragen einzusparen, kann man folgendermaßen 
vorgehen: Man legt die Error-Texte in Data-Zeilen ab, liest die 
Datas mit einer auf die aktuelle Error-Nummer begrenzten 
Schleife ein und kann nun den zuletzt gelesenen Data-Text mit 
einer allgemein gehaltenen Ausgaberoutine auf den Bildschirm 
bringen. 

Wenn außer dem Text noch weitere Reaktionen folgen sollen, 
kann man auch mit ’On Err Gosub E1,E2,E3,E4....’ die behan¬ 
delnde Prozedure bestimmen und diese dadurch gleichzeitig für 
andere Zugriffe offenhalten, ohne einen Slalom durch das vor¬ 
bereitende Error-Handling laufen zu müssen. 


Restore E.data 
For IX=0 To Err 
Read E.rrtxtS 
Next IX 

Text LX-47,OX+39,E.rrtxtS 
Pause 50 

Pbox LX-49,0X+33,LX+50.OX+41 

Tast._indexX=20 

Resume E.label 

E.data: 


IZeiger auf Error-Datas 
! Lese-Schleife 
! Datas lesen 

! letztes Data ausgeben 
! kurze Pause zum Lesen 
! Fenster wieder löschen 
! Tastenindex = CLEAR 
! bei E.label weitermachen 


Data NULL-DIVISION,REAL•ÜBERLAUF,,,,MI NUS-RADIKAND 
Data BASIS ZU KLEIN,UNBEKANNTER FEHLER 
Return 
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5.10 Extension- und Backup-Service 

Eine fast unscheinbare Routine, die es aber in sich hat. Wie oft 
stellt sich die Aufgabe, die Richtigkeit einer Dateinamen-Ein- 
gabe zu überprüfen oder ein Backup-File anzulegen. Während 
der eigentliche Dateiname in den allermeisten Fällen für den 
Anwender frei bestimmbar ist, hat man als Programmierer doch 
oft ein Interesse daran, daß die Extension richtig gesetzt ist. Es 
nützt meist wenig, die Extension mit dem zweiten Parameter¬ 
string der Fileselect-Box vorzugeben, wenn bei der Eingabe die 
Extension gelöscht oder verändert wird. Um sicherzustellen, daß 
garantiert die richtige Extension verwendet wird, kann man nun 
diese Routine aufrufen. 

Der Aufruf erfolgt so: 

Fileselect "\*.ABC",".ABC",AS ! Eingabe des Dateinamens 
3Extend(A$,"ABC",*N$) ! Extension überprüfen 

Print NS 

Wurde in der Fileselect-Box ohne Änderung einfach die OK- 
oder ABBRUCH-Box angeklickt, erhält man in N$ nach 
’Extend’-Aufruf den Ausdruck ’000’ zurück. Das gleiche ge¬ 
schieht, wenn vom Anwender entweder die Auswahl-Zeile er¬ 
satzlos gelöscht wurde (<Esc>) oder nur die Extension geändert, 
aber kein Name dazu eingegeben wurde. In allen anderen Fällen 
wird die Extension des eingegebenen Namens mit der Vorgabe 
im zweiten Parameterstring des ’Extend’-Aufrufes verglichen 
und bei Nicht-Übereinstimmung durch die Vorgabe ersetzt. 
Anschließend erhalten Sie dann den gesamten Dateinamen mit 
evtl, geänderter Extension in ’N$’ zurück. Statt ’N$’ kann natür¬ 
lich bei der Pointer-Übergabe jeder beliebige Stringvariablen¬ 
name verwendet werden. 

Bei Backup-Files kommt noch eine zweite Mini-Routine zum 
Einsatz. Diese Routine 'BACKUP’ erwartet zwei Parameter- 
Strings. Der erste gibt den Namen an, unter welchem die Datei 
abgelegt werden soll. Der zweite bestimmt die Extension, die Sie 
der Datei geben wollen, die evtl, unter demselben Namen wie 
die neue Datei schon auf Diskette existiert und nun als Backup 
gesichert werden soll. 
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Die ’BACKUP’-Routine erledigt nun das Finden und Umbenen¬ 
nen mit Hilfe der ’EXTEND’-Routine, so daß Sie anschließend 
Ihre neue Datei anlegen können. Als Beispiel lege ich hier das 
obere Viertel des Bildschirms auf Diskette ab. Der Backup-Ef¬ 
fekt wird erst deutlich, wenn Sie das Programm zweimal starten 
und sich die Dateien mit ’Files’ im Direktmodus anschauen. Sie 
haben nun zwei Dateien mit gleichem Namen, aber unterschied¬ 
licher Extension. 


Fileselect "\*.SCR ,I ,".SCR ,I ,A$ ! Eingabe des Dateinamens 


aBackuptAS/'BAK") 

3Extend(A$, l ‘SCR",*N$) 

If N$<>"000" 

Bsave N$,Xbios(2),8000 
Endi f 

1 Programm: EXTENDER.BAS 


! evtl. Backup anlegen 
! Extension überprüfen 
! brauchbarer Pfad + Name? 
! Datei anlegen 


| ii ii •• ii ii ii ii ii ii ii ii ii ii ii ii (in ii ii ii ii ii n ii ii ii min hihi man | 

EXTENSION-/BACKUP - KONTROLLE j 


I IIII llllll llllll HIHI llllll HIHI HIHI llllll IIIIIIIIIIIIIIII llllll II I 


Procedure Extend(Pr$,Ex$,PsX) 

I 

' Pr$ = Dateipfad u. -name 
1 Ex$ = gewünschte Extension 
1 PsX = St ring-Rückgabe 


Local NlX,Dn$,IX 

If Right$(Pr$)<>"\" And Right$(Pr$,5)<>"\."+Ex* And PrS»"" 


For IX=Len(Pr$) Downto 1 

I 

Inc NIX 

Exit If Mid$(Pr$,IX,1)="\" 
Next IX 

Dn$=Right*(Pr$,NlX) 

If Instr(Dn$,".")=0 
*PsX=Pr$+"."+Ex$ 

Dnt=Dn$+"."+Ex$ 

Endif 

If Right$(Dn$,4)o ,, ."+Ex$ 


! gültiger Dateiname? 

! Namen von hinten aus nach dem 
! ersten Backslash durchsuchen 
! Zeichen mitzählen 
! Exit, wenn Backslash erreicht 

! reinen Dateinamen bilden 
! keine Extension enthalten? 

! Pfad und Extension zurückgeben 
! Namen komplettieren 

! falsche Extension? 
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If Left$(Dn$,2)<> ,, \." ! Name größer als nur Extension? 

*PsX=Left$(Pr$,Len(Pr$)-NlX)+Left$(DnS,Instr(Dn$,"."))+Ex$ 

• ! Pfad + Name + Extension zurück 

Else ! Name besteht nur aus Extension! 

*Ps%="000" ! unbrauchbaren Namen zurückgeben 

Endi f 

Else ! richtige Extension! 

*PsX=LeftS(PrS,Len(Pr$)-NlX)+Dn$ ! Pfad + Name zurück 
Endi f 


Else ! 

*PsX="000" ! 

Endi f 
Return 

Procedure Backup(PrS,Ex$) 

I 

1 Pr$ = Dateipfad u. -name 
1 ExS = Backup-Datei-Extension 

Local Xn$ 

If Exist(PrS) ! 

3Extend(Pr$,Ex$,*Xn$) ! 

If Xn$<>"000" ! 

If Exist(Xn$) ! 

kill XnS ! 

Endi f 

Name Prl As XnS ! 

Endi f 
Endi f 
Return 


ungültiger Dateiname! 
unbrauchbaren Namen zurückgeben 


Datei auf Diskette vorhanden? 
Backup-Extension einbauen 
brauchbarer Dateiname? 

Schon Backup-File vorhanden? 
dann löschen 

alte Datei auf Backup umbenennen 


5.11 Hochleistungskompressor 

Es kann manchmal sehr nützlich sein, mehr Platz auf einer Dis¬ 
kette schaffen zu können, ohne dabei auf die wichtigen Daten 
verzichten zu müssen. In den meisten Fällen ist dies nicht mög¬ 
lich, da die Struktur der Dateien und die Art und Weise des Zu¬ 
griffs aus einem Programm heraus nicht bekannt sind. 

Bei GFA-’.LST’-Files, also reinen ASCII-Dateien, ist das Format 
und die Art und Weise des Zugriffs durch den Interpreter be¬ 
kannt. Aus diesem Grund können wir es uns leisten, diese Da¬ 
teien im Rahmen der Möglichkeiten zu verändern. 





324 


GF A-BAS IC Tips & Tricks 


Mit diesem ’LST_COMP.BAS’ ist das ganz einfach. 

Beim Einlesen von ASClI-Dateien durch die ’Merge’-Funktion 
überprüft der Interpreter die Richtigkeit der gelesenen Zeilen. 
Wenn man nun weiß, daß die Programmstruktur vom Interpreter 
immer erst dann aufgebaut wird, wenn die entsprechenden Pro¬ 
grammteile im Editor angezeigt werden und diese optische 
Struktur für den Interpreter selbst eigentlich unwichtig ist, ist 
der Gedanke, daß man auf diese Struktur auch in den LST.- 
Files verzichten kann, gar nicht so weit weg. In der ASCII-Datei 
wird die optische Struktur einfach durch entsprechend viele 
SPACE-Zeichen (Chr$(32)) gebildet. 

Um nun das Disketten-File zu kürzen, brauchen wir als erstes 
also nur diese SPACE’s herauszuoperieren. 

Zweitens kann an jedem Programmzeilen-Ende auf das Line- 
Feed-Zeichen (Chr$(10)) verzichtet werden. Dem Interpreter ge¬ 
nügt zum Erkennen des Zeilenendes das Carriage-Return-Zei- 
chen (Chr$(13)). Das allein kann bei umfangreichen Programmen 
mit mehreren tausend Zeilen schon einige KByte ausmachen. 

Die dritte Möglichkeit, Platz einzusparen, besteht darin, alle 
Befehlsnamen, die auch durch Abkürzungen eingegeben werden 
können, durch diese Abkürzungen zu ersetzen. Bei diesen Be¬ 
fehlsnamen handelt es sich grundsätzlich um Befehle, die nur 
direkt am Zeilenanfang auftreten können. Sonstige Funktionen, 
die auch innerhalb einer Zeile stehen können, verfügen über 
keine Abkürzungen. 

Der Interpreter erkennt beim Einlesen des ’.LST-Files diese 
Abkürzungen. Ein GFA-BASIC-Programm wird im Speicher ge¬ 
nerell als Mnemonic-Code abgelegt und nur bei der Bildschirm- 
Anzeige des Listings im Editor bzw. beim ’TRON’- und ’LIST’- 
Befehl in das für den Programmierer erkennbare Listing umge¬ 
wandelt. Dieses Programm vollzieht nun diese drei Schritte und 
schreibt die dadurch komprimierte Datei wieder auf die Dis¬ 
kette. Im allgemeinen sind damit Platzeinsparungen von bis zu 
30 Prozent möglich. Ein ’.LST’-File von 100 KByte Länge hätte 
demnach hinterher eine Länge von nur 70-75 KByte. 
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Programm: LST_CMPR.BAS 

| MIIIIII UM IIIIIIIIIIIHHHIIIII MIHI MIHI II Mil II MH IIIIMIHHI 

I '.LST 1 - FILE - KOMPRESSOR 


I llllll IIII HIHI llllll IIIIIIIIII HIHI IIIIIIIIIIIIII HIHI IIII MM UH I 


On Break Gosub Schluss ! Abbruch abfangen 

Lpoke Xbios(2)+32000,Fre(O) ! aktuellen freien Speicherplatz 

1 ! in den üblicherweise ungenutzten 

1 ! freien Bereich hinter dem Bild- 

1 ! schirmspeicher schreiben. 

Reserve 50000 ! 50 KByte Reserve für BASIC 

Deffill ,2,4 

Pbox 10,10,629,389 

Alert 2,">.LST- FI LE -COMPRESSOR<",3,"DO IT",FlagX 
AlS="Wurde das LST-File mit|Deflist 0 (Befehlsname) oder|" 

Al$=Al$+"DefList 1 (Befehlsname)Iabgespeichert ?" 


Alert 2,Al$,1,"Deflist1|DEFLIST0", 
Restore Befehle 
Do 

Read Durm$ 

Exit If Instr(Dumm$,"XXX ,, ) 

Inc D.atas% 

Loop 

Div D.atas%,2 

I 

Restore Befehle 

Dirn Lang$(D.atasX),KurzS(D.atasX) 
For IX=1 To D.atasX 
Read LangS(IX),Kurz$(IX) 

If Defflag%=2 

LangS(IX)=Upper$(Lang$(IX)) 
Endi f 
Next IX 

Fileselect "\*. Ist",»",SS 
If SS<>"" And S$o".LST" 

Open "I»,#1,SS 
SizeX=Lof«M) 

Bload SS.Himem 

Print At(10,10);"Comprimiere Zei 
Do 

CountX=0 

A$="" 


i.eff lag% 

! Data-Zeiger setzen 
! erste Lese-Schleife 
! Data lesen 

! Exit, wenn Endmarkierung erreicht 
I mitzählen 

! Data-Anzahl / zwei, da immer zwei 
! Datas pro Befehl 

! nochmal Data-Zeiger setzen 
! Befehls-Array dimensionieren 
! Alle Befehle und Abkürzungen 
! lesen 

! Mit 'DEFLIST 0' abgespeichert? 

! Befehl in Großbuchstaben 

! nächster Befehl 
! zu komprimierende Datei wählen 
! gültiger Dateiname? 

! Datei öffnen 
! Datei länge feststellen 
! Datei hinter BASIC-Speicher laden 
e : 11 

! Kompressor-Schleife 
! Bytezähler auf Null 
• Zeilenpuffer löschen 
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Do ! 

ByteX=Peek(Himem+Of fsetX+Count%)! 
Inc CountX 
Exit If ByteX=13 
A$=A$+Chr$(ByteX) 

Loop 

Add 0ffsetX,Len(A$)+2 


Leseschleife 

Einzelzeichen selektieren 
Bytezähler +1 
Exit, wenn CarriageReturn 
Zeile zusammenfügen 

Positionszähler addieren 
(+2 bedeutet, daß die Zeichen 
CR und LF mitgezählt werden 
müssen) 

Exit, wenn Ende des alten 
Listings 

Zeilen mitzählen 
aktuelle Zeile ausgeben 
SPACE-Zähler auf Null 
SPACE-Zähl schle i fe 
SPACE-Zähl er +1 
Einzelzeichen selektieren 
Exit, wenn ungleich SPACE 
Schleifen-Wende 


Exit If OffsetX>SizeX 

i 

Inc D.oneX 

Print At(43,10);D.oneX 
CoX=0 
Do 

Inc CoX 

M$=Mid$(A$,CoX, 1) 

Exit If M$<>" " 

Loop 

AS=Right$(A$,Len(A$)-(CoX-1))+ChrS(13) ! Restzeile rechts vom 
1 ! letzten SPACE bilden 

For IX=1 To D.atasX ! Befehlsliste durchgehen 

If Left$(AS,Len(LangS(IX)))=Lang$(IX) ! 1. Wort in Liste gefunden? 
AS=RightS(AS,Len(A$)-Len(Lang$(IX)))! Restzeile rechts vom 
1 I Befehlsnamen bi Iden 

AS=Kurz$(IX)+A$ ! Abkürzung einsetzen 

Endi f 

Next IX ! nächster Befehl der Liste 

Bmove Varptr(A$),Himem+Size%+GesamtX,Len(A$) ! Zeile komprimiert 

zurück 

bisher komprimierte Länge 
Ende, wenn Exit-Flag gesetzt 
große Schleifen-Wende 
Exit-Flag gesetzt? 

Restprogramm überspringen 


Add GesamtX,Len(A$) 

Exit If E.flagX=1 
Loop 

If E.flagX=1 
Goto Raus 
Endi f 

Startkill: ! 

Alert 2,"Altes LST-File löschen ?", 1 ,"OtCAY|NEIN",BackX 
If BackX=1 ! altes 1 .LST'-File löschen? 

If Exist(SS) ! Diskette nicht gewechselt? 

K.flagX=1 

Kill SS ! Datei löschen 

Else ! Diskette gewechselt! 

Al$="File nicht gefunden ! |Diskette wurde gewechselt !" 

Alert 1,AIS,1,"Nochmal|Weiter",BackX 
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If BackX=1 ! Nochmal versuchen? 

Goto Startkill ! dann zurück 

Endif 
Endi f 
Endi f 

Startsave: 

If Dfree(0)>GesamtX+1000 ! Reicht Diskettenptatz aus? 

F.nameS=Right$(S$,12) ! Dateinamen selektieren 

BackslashX=Instr(F.name$,"\“) ! Backslash enthalten? 

F.name$=Right$(F.name$,Len(F.name$)-BackslashX)!Reststring=Dateiname 
If K.flagX=0 ! altes File nicht gelöscht? 

F.nameS=Left$(F.name$,Len(F.name$)-4)+ ll .BAC" ! Extension '.BAC' 

1 ! setzen 

Endi f 

Fileselect "\*.*",F.name$,F.name$ ! 

If F.nameSo"" And F.name$<>"\" ! 

Bsave F.name$,Himem+SizeX,GesamtX ! 

' ! 

I nc C. opyX ! 

Alert 2,Str$(C.opyX)+". KOPIE ablegen ??",1,"Nein|0kay",BackX 
If BackX=2 ! Noch eine Kopie ? 

Goto Startsave ! dann nochmal speichern 

Endif 
Endi f 

Else ! Diskettenplatz reicht nicht 

AlS="Disketten-Speicherplatz reicht|nicht aus ! Evt. Disk-Wechsel ! 
Alert 1,AIS,1."Nochmal|Abbruch",BackX 
If BackX=1 


gültiger Dateiname? 

aus Speicher zurück auf 
Disk 

Kopien mitzählen 


Goto Startsave 
Endi f 
Endi f 
Endi f 
Raus: 

Clear 

Reserve Lpeek(Xbios(2)+32000) 
■ 

Edit 

Procedure Schluss 


Nochmal versuchen? 
dann nochmal 


BASIC-Speicher klar 
BASIC-Speicher wieder auf 
volle Größe 

Programmende! 


1 Diese Break-Abfang-Routine ist notwendig, um bei Prograirmende den 
1 BASIC-Speicher wieder ordnungsgemäß restaurieren zu können. 


E.flagX=1 
Cont 
Return 


! Abbruchflag setzen 
• weiter geht's 
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Die Data-Liste ist evtl, noch nicht vollständig. Sollten Ihnen 
noch weitere Abkürzungen einfallen, brauchen Sie diese einfach 
nur in diese Liste einzutragen. Dabei ist jedoch zu beachten, daß 
der ausgeschriebene und der abgekürzte Befehlsname immer als 
Paar (erst ausgeschrieben, dann abgekürzt) direkt hintereinan- 
derstehen und daß als letztes Data-Element der String ’XXXXX’ 
verwendet wird. 


Befehle: 

Data Pbox,pb,Return,ret,Repeat,rep 
Data Procedure,pro,Print,p,Box,b.Until,u 
Data Loop,l,For ,f ,Next,n,Fill,fi,Mouse,m 
Data Put,pu,Text,t,Defline,de,Swap,sw 
Data Line,li,Plot,pl,Local,loc,Draw,dr 
Data Data,d,Defmark,defm,Defmouse,defmo 
Data Deffill,deff,Deftext,deft,Dim,di 
Data Erase,er,Endif,endi,Alert,a,Input,inp 
Data Restore,res,Circle,c,Color,co 
Data Setcolor,se,Pcircle.pc.Ellipse.ell 
Data Pellipse,pe,Prbox,prb,Rbox,rb,Else,el 
Data Poke,po,Lpoke,Ip,Pause,Pa,Goto,got 
Data Resune,resu,Read,rea,If,i,Inc,in 
Data Add,ad,Sub,s,Refn, 1 ,Gosub,a 
Data Reserve, rese,Bmove,bm,Showni, sh 
Data Hidem,hi.Option Base.opt base 
Data Option ",opt ".Void.vo.Vdisys.V 
Data Void,vo,Gemsys,ge,Open ,o ,Edit,ed 
Data Fi leselect.fi lese,Graphmode,g.Bload,bl 
Data Bsave,bs,Dpoke,dp,Monitor,mon,XXXXX 


5.12 Alles Schiebung 

Diese Prozedur stellt wieder ein, meines Erachtens nach, sehr 
wichtiges Utility zur Verfügung. 

Es ist immer wieder notwendig, den Benutzer zu Werteeingaben 
aufzufordern. Diese Routine erledigt das. Es kann dabei ein be¬ 
stimmter Wertebereich vorgegeben werden. Eingaben außerhalb 
dieses Bereichs sind also nicht möglich. 
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Des weiteren können zwei Textstrings übergeben werden, von 
denen der erste eine Überschrift bereitstellt (evtl. Eingabekom¬ 
mentar). Der zweite enthält die Bezeichnung für die einzustel¬ 
lende Werteeinheit (z.B. DM, Meter, kg etc.). 

Als letztes muß eine Integer-Pointer-Variable übergeben wer¬ 
den, in welcher nach Prozedurende der tatsächlich eingestellte 
Wert zurückgeliefert wird. 

Das Besondere an dieser Routine ist, daß sie eine Möglichkeit 
verdeutlicht, wie man grafische Objekte an die verschiedenen 
Bildschirm-Auflösungen anpassen kann. Diese Slide-Box ist ab¬ 
solut mit GEM-Formularen vergleichbar, da sie sich nach der 
aktuelle Auflösung richtet. 


BaaßopHlOalD sflfflsßaflöQSiB 


L. 


Pmmfe'Saa 



Abb. 36: GFA-Slider 
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Programm: SLIDER.BAS 

| IIIIIIIIIIIIIMIIIIIIIIIIIIIIMIIIIMIMIMMIIIIIIIIIIIIIIIIIIIIIIMI 

SUDE - ROUTINE 


l lilimiiiiililiH fl H llll li ii ii ii ii ii ii il il li li ii ii il il ii ii ii ii nmi i 


SSIiderC'Raster-Maß einstellen:" f "Punkte0,120,*Wert%) 
Print UertX 

Procedure Slider(Sl_txt$,Einheit$,SwX,EwX,RueckgabeX) 


' Sl_txt$ = Box-Überschrift (LOURES = max.32 Zeichen 
1 MIDRES/HIRES = max.50 Zeichen) 

1 Einheit* = Werteinheit der Einstellung (LOURES = max.12 Zeichen 
' MIDRES/HIRES = max.20 Zeichen) 

1 SwX = kleinster wählbarer Wert 

1 EwX = größter wählbarer Wert 

I 

Local Bg$,XrX,YrX,SlX,XX,YX,X1X,Y1X,KX,TxX,TcX 
Graphmode 1 !- - -! 

Deffill 1,0,0 ! 

Defmouse 3 I.Voreinstellungen 

Color 1 ! 

Defline 1,2,0,0 I - - -! 

If Xbios(4)=0 ! LOURES ? 

TxX=4 I Texthöhe 

TcX=8 ! Zeichenbreite 

XrX=2 ! X-Werte-Teiler 

YrX=2 ! Y-Werte-Teiler 

Endi f 

If Xbios(4)=1 ! MIDRES ? 

TxX=6 ! Texthöhe 

TcX=10 ! Zeichenbreite 

XrX=1 ! X-Werte-Teiler 

YrX=2 ! Y-Werte-Teiler 

Endi f 

If Xbios(4)=2 ! HIRES ? 

TxX=13 ! Texthöhe 

TcX=10 ! Zeichenbreite 

XrX=1 ! X-Werte-Teiler 

YrX=1 ! Y-Werte-Teiler 

Endi f 

Deftext 1,16,0,TxX ! Text-Attribute 


Get 50/XrX,140/YrX,590/XrX,234/YrX,BgS I Hintergrund sichern 

Pbox 50/XrX,140/YrX,590/XrX,234/YrX I -1 

Box 51/XrX,141/YrX,589/XrX,233/YrX ! 
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Box 55/XrX,145/YrX,585/XrX,229/YrX ! 

Text 320/XrX-lnt(Len(Sl_txt*)/2)*TcX,160/YrX,Sl_txt* ! 
Text 76/XrX,214/YrX,Einheit* ! 

Deffill 1,2,4 ! 

Pbox 70/XrX,166/YrX,570/XrX,194/YrX ! 

Deffill ,0,0 ! 

Pbox 75/XrX,171/YrX,565/XrX,189/YrX ! 

Box 76/XrX,173/YrX,564/XrX,187/YrX ! 

Box 70/XrX,196/YrX,570/XrX,221/YrX ! 

Box 71/XrX,197/YrX,569/XrX,220/YrX ! 

Graphmode 3 !-' 

Repeat !-. 

Box 79/XrX,175/YrX,85/XrX,185/YrX ! 

Repeat ! 

Until Mousek ! 

Box 79/XrX,175/YrX,85/XrX,185/YrX ! 

Unt i l Mousek !- 1 


Box-Aufbau 


Auf 

Mausklick 

warten 


IStart der Einstellungsschleife 
! Mausstatus 

• Y-Koordinate feststehend 
! Maus rechts außerhalb? 

! X-Maximum setzen 


Repeat 

Mouse XX,YX,KX 

YX=185/YrX ! 

If XX>561/XrX ! 

XX=561/XrX ! 

Endif 

If XX<85/XrX ! 

XX=85/XrX ! 

Endi f 

Pbox XX-6/XrX,YX-10/YrX,XX,YX ! 

SlX=Int(XX-(86-XrX)/XrX)/((476/XrX)/(EwX-SwX))+SwX 
1 ! Wert berechnen 


Maus links außerhalb? 
X-Minimum setzen 

Schiebe-Box zeichnen 


Graphmode 1 

Text 320/XrX-Int(len(Str*(SlX))/2)*TcX.214/YrX," "+Str*(Sl%)+" 


• ! 

Graphmode 3 

Repeat ! 

Mouse X1X,Y1X,KX ! 

Until XIXoXX Or KX=0 I 

I | 

Pbox XX-6/XrX,YX-10/YrX,XX,YX ! 
Until KX=0 ! 

*Rueckgabe%=SlX I 

Put 50/XrX,140/YrX,Bg* I 


Wert anzeigen 

Warteschleife 
Mausstatus 

Weiter, wenn Mausbewegung 
oder Maustaste frei 
Schiebe-Box löschen 
Exit, wenn Maustaste frei 
Wert an Hauptprogramm zurück 
Hintergrund restaurieren 


Return 


II 
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5.13 Gut sortiert 

Es werden immer wieder die raffiniertesten Sortier-Methoden 
vorgestellt. Sie haben meistens den großen Vorteil der Zeit¬ 
ersparnis. So ist eine Quicksort-Routine bis zu lOmal schneller 
als ein vergleichbares Bubblesort. Ich bezweifle jedoch, daß der 
größte Teil unserer Leser dermaßen große Datenmengen zu sor¬ 
tieren hat, daß der Geschwindigkeitsvorteil von erheblicher Be¬ 
deutung wäre. Der große Nachteil der Quicksort-Routinen ist 
nämlich die wesentlich erschwerte Durchschaubarkeit. Man muß 
sich schon intensiv mit Algorithmen dieser Art auseinander¬ 
setzen, um sie nach individuellen Bedürfnissen ändern zu 
können. 

Deshalb möchte ich hier eine einfache Sortier-Routine vorstel¬ 
len, die zwar nicht mit Turbo-Effekten glänzt, aber aufgrund 
ihrer Einfachheit leicht von Ihnen modifiziert werden kann. 

Damit das Beispiel auch einen Nutzeffekt hat, wird zuerst das 
Inhaltsverzeichnis der aktuellen Diskette in eine Diskettendatei 
geschrieben, aus dieser wieder ausgelesen, sortiert und zum 
Schluß als Datazeilen sortiert wieder auf Diskette geschrieben. 

Die Datei kann dann mit ’Merge’ in den Arbeitsspeicher geladen 
und mit ’Llist’ oder ’Block’-"L"list auf dem Drucker ausgegeben 
werden. 


Programm: SORTER.BAS 

| ii n inni ii hum ii ii im im ii ii 111111111111111111111111111111111111 1 

ARRAY - SORTER 


l min nun min im ii ■1111111111111111111111111111111111111111111111 


Files To “\filedat.Ist" 

Dirn A$(200) 

Open ledat.Ist" 

While Eof(#1)=0 
Ine IX 

Line Input #1,A$(IX) 

Wend 


! Dateien in File schreiben 
! Aufnahmefeld einrichten 
! File öffnen 
! solange kein File-Ende 
! Zahler addieren 
! Datei-Namen ei niesen 






Spezialitäten aus Kraul und Rüben 


333 


Close #1 

aSorter(*A$(), IX-1) 

SlWrite(*A$(), IX-1,"f i ledat. Ist") 

I 

Procedure Sorter(PtrX,Lim%) 


! File schließen 
! Feld sortieren 

• sortiertes Feld auf Disk 

• schreiben 


Dies ist die erwähnte Sortier-Routine. Als Parameter werden ihr 
bei Aufruf der Pointer auf das zu sortierende Stringfeld und das 
Limit (letzter Feldindex) übergeben. 

Beispiel: @Sorter(*A$(),I%-l) 

Nach Änderung der Stringvariablen auf numerische Variablen, 
Löschen der beiden ’UpperS’-Zeilen und Änderung der If-Ab¬ 
frage auf die zu vergleichenden Feld-Elemente 

Beispiel: If Feld%(J%)=>Feld°/o(K%) 

kann diese Routine auch zum Sortieren von numerischen Feldern 
verwendet werden. 


Local JX,KX,D1S,D2$ 
Erase Pufferst) 

Dim PufferS(LimX) 

Swap *PtrX,Puffer$() 
For JX=1 To LimX 
For KX=JX+1 To LimX 


D1S=UpperS(PufferstJX)) 
D2$=UpperStPufferStKX)) 


If D1S=>D2$ 

I 

Swap Puffer$tJX),PufferStKX)! 


Endif 


Feld löschen 

Sortier-Buffer-Feld einrichten 
Global- mit Local-Feld vertauschen 
alle Feld-Elemente durchgehen 
nochmal alle Feld-Elemente, da ja 
jedes Element mit jedem anderen 
Element verglichen werden muß. 

Der Start-Index dieser zweiten 
Schleife wird bei jedem Durchlauf 
un 1 erhöht, da die davorliegenden 
Elmente schon sortiert sind. 

Die beiden zu vergleichenden 
Elemente in Großschrift umwandeln, 
da sonst Kleinbuchstaben Priorität 
vor Großbuchstaben erhalten. 

Ist das erste Vergleichselement 
größer oder gleich dem zweiten? 
Element-Inhalte vertauschen 
Ab jetzt wird mit einem anderen 
Inhalt des Vergleichs-Elements 
weitergesucht. 
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Next KX ! nächstes zweites Element 

Next JX ! nächstes Vergleichs-Element 

Swap *PtrX,Puffer$() ! nach Sortier-Ende wieder Local - 

1 ! mit Global-Feld vertauschen. 

Return 

Procedure Write(PtrX,LimX,Dat$) 


Diese Prozedur erledigt das Ablegen der einzelnen Feld-Ele¬ 
mente als Data-Zeilen in eine Disketten-Datei. Diese Prozedur 
kann ebenfalls allgemein verwendet werden. Haben Sie also ein 
Feld, das Sie bewahren wollen, können Sie es so auf Disk 
schreiben und die hiermit produzierten Data-Zeilen hinterher 
weiterverarbeiten. 

Als Parameter erwartet die Prozedur ebenso wie die Sortier- 
Prozedur den Feld-Pointer des betreffenden Feldes, den Index 
des letzten Elementes und zusätzlich den Namen der Datei, in 
welche die Daten geschrieben werden sollen. 


Local JX 
Erase Pufferst) 

Dim PufferS(LimX) 

Swap *PtrX,Pufferst) 

Open "0",#99,OatS 
For JX=1 To LimX 
Print #99,"0 ";Puffer$tJX) 
Next JX 
CI ose #99 

Swap *PtrX,PufferSt) 

Return 


I Feld löschen 
I Buffer-Feld einrichten 
! Global- mit Local-Feld vertauschen 
I Datei öffnen 

I alle Feld-Elemente durchgehen 
! Inhalt in Datei schreiben 
I nächstes Element 
! Datei schließen 

! Local- m. Global-Feld zurücktauschen 


5.14 GFA-BASIC-Erweiterung: 

Sortier-Funktion per Monitor() 

Zu guter Letzt wollen wir nicht versäumen, eine Anwendung für 
den bisher stiefmütterlich behandelten ’Monitor’-Befehl vorzu¬ 
stellen. Da dieser Befehl nur in Verbindung mit der Maschi¬ 
nensprache seine volle Blüte erlangt, kommen wir um einen Ab¬ 
stecher in Assembler nicht herum. 
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Stefan Dittrich, bekannter Autor von Maschinensprachentips für 
den ST, hat uns die folgenden Routinen samt ihrer Erläuterung 
zur Verfügung gestellt: 

Ein BASIC-Interpreter wie GFA-BASIC 2.0 hat oft so viele 
Befehle und Funktionen, daß man recht lange braucht, bis man 
diese alle im Griff hat. Doch irgendwann kommt meist der Mo¬ 
ment, in dem man die eine oder andere Funktion vermißt. So 
auch im GFA-BASIC, bei dessen Version 2.0 jedoch glückli¬ 
cherweise eine Hintertür geöffnet wurde, um Erweiterungen zu 
entwickeln. 

Die Rede ist hier von dem etwas ominösen MONITOR(n)-Be- 
fehl, für den im Handbuch auch kein Anwendungsbeispiel gege¬ 
ben ist. Mit diesem Befehl kann man ein Maschinenprogramm 
aufrufen, dem auch einige Parameter übergeben werden. 

Der am einfachsten zu verwendende Parameter ist derjenige, den 
man beim MONITOR(n)-Befehl direkt übergibt. Für n kann 
eine beliebige Integerzahl oder -Variable eingesetzt werden, de¬ 
ren Wert das Maschinenprogramm im Register DO erhält. 

Um das Maschinenprogramm aber überhaupt als Erweiterung zu 
initialisieren, bedarf es einiger Vorbereitungen: 

Zuerst muß das Erweiterungsprogramm gestartet werden, und 
zwar vom Desktop aus. Dieses Programm muß sich nun den 
benötigten Speicherplatz reservieren und den Rest freigeben, 
damit das GFA-BASIC auch Speicher zur Verfügung hat. 

Dann muß der Illegal-Instruction-Vektor (ab $10) auf die Rou¬ 
tine im Programm umgebogen werden, welche die eigentliche 
Befehlserweiterung darstellt. 

Nun kann entweder z.B. mit KEEP PROCESS das Programm 
verlassen werden, wodurch es im Speicher bleibt, und GFA- 
BASIC gestartet werden. Oder aber das Programm lädt und 
startet direkt den GFA-Interpreter, was die bequemste Art ist. 
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Diese Methode verwendet auch das hier vorgestellte Programm. 
Dazu muß der Interpreter natürlich zusammen mit dem Pro¬ 
gramm auf einer Diskette sein. 

Die Befehlserweiterung selbst ist ein einfaches Sortierprogramm, 
welches ein eindimensionales String-Array nach nur einem 
Buchstaben sortiert. Es ist mehr als Demonstration sowohl des 
MONITOR-Befehls als auch der Variablen-Speicherung bzw. - 
Struktur des GFA-Interpreters gedacht, leistet jedoch für so 
manchen Zweck gute und recht schnelle Dienste. Außerdem hat 
es mich geärgert, daß in der GFA-Beschreibung so lapidar die 
Verwendungsmöglichkeit des MONITOR-Befehls als Aufruf 
einer Sortier-Funktion vorgeschlagen wird, ohne einen Hinweis, 
wie dies zu bewerkstelligen ist. Deshalb nun das vorliegende 
Programm. 

Das Programm ist in zwei Teile unterteilt: die Initialisierung und 
die eigentliche Erweiterung, die Sortier-Funktion. 

Die Initialisierung läuft in 3 Schritten ab: 

1. Einrichtung eines neuen Stacks und Reservierung des 
benötigten Speicherplatzes 

2. Aufruf einer Routine im Supervisor-Modus, die den 
Illegal-Instruction-Vektor auf die Sortier-Routine ab 
dem Label ’main’ umbiegt 

3. Laden und Starten des GFA-BASIC-Interpreters 
mittels der EXECUTE-Funktion des GEMDOS. 

Außerdem enthält es noch die TERM-Funktion des GEMDOS, 
die nach Rückkehr aus dem Interpreter (Quit) das System wieder 
ans Desktop übergibt. 


Hier nun der erste Teil des Programmes: 
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.-Programm: GFA_SORT.S 

;** Befehlserweiterung für GFA-BASIC VI.0 S.D. ** 

;** Sortierung eines 1-dimensionalen Stringfeldes ** 

;** Aufruf: MONITOR(*a$()) ** 

run: 

move.l 4(sp),a5 

lea stack,sp .-neuen Stack einrichten 

move.l #ende-run+$500,-(sp) .-Speicher reservieren 
move.l a5,-(sp) .-Speicher-Anfang 

clr -(sp) 

move #$4a,-(sp) ,-Setblock-Funktion 

trap #1 
add.l #12,sp 

pea init 
move #$26,-(sp) 
trap #14 
addq.l #6,sp 

pea param .-Environment 

pea param ,-Kommandozei le 

pea fname ;Filename: GFABASIC.PRG 

clr -(sp) ;Load and Go 

move #$4b,-(sp) ;EXECUTE: 

trap #1 ,-GFA-BASIC starten 

add.l #16,sp ,-Rückkehr erst nach GFA-'Quit 1 

ex i t: 
clr -(sp) 

trap #1 ;Term => Desktop 

init: ;Zeiger verbiegen 

move.l #main,$10 ;Illegal-Pointer auf eigene Routine 
rts ;fertig 

param: dc.w 0 ;kein Environment oder Kommandozeile 

fname: dc.b »GFABASIC.PRG",0 

even 

Nun zum etwas komplizierteren Teil: der Sortier-Routine. Hier 
wird vorsichtshalber erst einmal getestet, ob auch der Zeiger auf 


;Vektorverbiegung 
;mit Super_Execute 
;ausführen 
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ein eindimensionales Feld übergeben wurde. Ist dies nicht der 
Fall, so wird in die ’error’-Routine verzweigt, welche nach Aus¬ 
gabe des Glockentones (CHR$(7)) wieder zum GFA-Programm 
zurückgibt. 

Ist es doch ein richtiges Feld, so wird die Adresse des Feldes 
selbst in Adreßregister AO geladen. Schließlich zeigt *A$() nur 
auf den Feld-Descriptor, nicht auf das Feld selbst. 

Danach wird die Anzahl der Felder in DO geladen. Für die fol¬ 
gende Schleife wird dieser Wert zuerst um 2 verringert. Danach 
wird das Tausch-Flag (D3) gelöscht. Dieses gibt nach Durchlauf 
der inneren Schleife (lop 1) an, ob fertig sortiert ist oder nicht. 

Das Register Dl wird nun mit 4 geladen. Der darauffolgende 
Befehl move.l 0(a0,dl),al lädt nun die Adresse des ersten Feldes 
(z. B. A$(0)) in Al. Ebenso wird die Adresse des nächsten Fel¬ 
des (A$(l)) in A2 gelegt. 

Die an diesen beiden Speicherstellen liegenden Bytes, eben die 
Anfangsbuchstaben der Strings A$(0) und A$(l) werden nun 
verglichen. Ist A$(l) größer oder gleich A$(0), so wird die 
Schleife bei ’noswap’ fortgeführt. Ist A$(l) jedoch kleiner, so 
müssen a$(0) und A$(l) vertauscht werden. 

Dies erwies sich als der schwierigste Teil des ganzen Program¬ 
mes. Da die beiden zu vertauschenden Strings ja nicht unbedingt 
gleich lang sein müssen, kann die einfache Vertauschung der 
Variableninhalte nicht in Frage. Also werden statt dessen die zu¬ 
gehörigen Zeiger und Längenangaben vertauscht. 

Zuerst die Adressen: Hierfür müssen nur die Adreßregister Al 
und A2 wieder zurückgeschrieben werden, natürlich über Kreuz. 

Danach die Längen: Auch diese Werte werden zuerst in zwei 
Register (D4 und D5) ausgelesen und nachher zurückgeschrie¬ 
ben. Diese etwas umständliche Art ist deshalb sinnvoll, da wir 
die Längen noch brauchen. Denn jetzt kommen die Backtrailer: 
Sie liegen hinter jedem String, und zwar immer an einer geraden 
Adresse. Also müssen die Längen, die ja als Offset vom String- 
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anfang verwendet werden müssen, ggf. auf einen geraden Wert 
erhöht werden. Dies geschieht durch die beiden Befehle addq 
#l,d4 und and #$fffe,d4. 

Mit dem so erhaltenen Offset kann nun mittels move.l 
0(al,d4),d6 der Backtrailer des ersten Strings (A$(0)) ermittelt 
und in D6 geladen werden. Nach Übertragung des zweiten in 
den ersten Backtrailer-Wert wird D6 in den zweiten geschrieben. 

Fertig ist die Vertauschung. Nun wird noch der Offset Dl er¬ 
höht, damit auf den nächsten String zugegriffen werden kann, 
und das Tausch-Flag D3 gesetzt, welches nach Ablauf der inne¬ 
ren Schleife mit tst d3 abgefragt wird. Ist es dann nicht null, so 
wird die äußere Schleife wiederholt (loop), andernfalls ist der 
Sortiervorgang abgeschlossen. Dann erst wird wieder zum GFA- 
Interpreter übergeben. 

Hier nun die beschriebene Routine zum aufsteigenden Sortieren 
eines eindimensionalen String-Arrays nach einem signifikanten 
Buchstaben: 


;** Hauptroutine: Sortierung eines String-Arrays S.D. ** 
main: 


move.1 

dO.aO 

.•Parameter in AO 

cmp 

#1,4(a0) 

.■eindimensional ? 

bne 

error 

;nein ! 

move.1 

(aO),aO 

.•Adresse des Feldes in AO 

clr. 1 

d4 

.•vorsichtshalber löschen 

clr. 1 

d5 


;* äußere Schleife * 


loop: 

move. 1 

(aO),dO 

,‘Anzahl der Felder ermitteln 

subq 

#2,d0 

;und Zahl korrigieren 

clr 

d3 

.•Tausch-Flag löschen 

moveq 

#4,dl 

;D1 vorbereiten 


;* innere Schleife * 
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lopl: 


move.1 

0(a0,d1),a1 ; 

Adresse von A$(0) ect. 

move.1 

6(a0,d1),a2 ; 

Adresse von A$(1) ect. 

move.b 

(a2),d2 


cmp.b 

(al),d2 

/Vergleich 

bpi 

noswap /OK 


move.1 

a1,6(a0,d1) 


move.1 

a2,0(a0,d1) 

/Adressentausch 

move 

4(a0,d1),d4 

/Länge 0 

move 

10(a0,d1),d5 

/Länge 1 

move 

d5,4(a0,d1) 


move 

d4,10(a0,d1) 

/Längentausch 

addq 

#1 ,d4 


and 

#$fffe,d4 

/Längen ggf. aufrunden 

addq 

#1 ,d5 


and 

ffe,d5 


move.1 

0(a1,d4),d6 

/Backtrailer 0, Backtrailertausch 

move.1 

0(a2,d5),0(a1 

,d4) /BT1 in BTO 

move.1 

d6,0(a2,dS) 

/BTO in BT1 

st 

d3 

/Flag setzen 

noswap: 



addq.1 

#6,d1 

/Offset erhöhen 

dbra 

dO,lopl 

/weiter 

tst 

d3 

/fertig ? 

bne 

loop 

/nein: nochmal 

stop: 



addq.1 

#2,2(sp) 

/PC auf Befehl nach ILLEGAL richten 

rte 


/zurück zu GFA-BASIC 

error: 



move 

#7,-(sp) 


move 

#2,-(sp) 


trap 

#1 ;Glocke ertönen lassen: falscher Parameter! 

addq.1 

#4,sp 


bra stop 

;Rückkehr zum GFA-Interpreter 
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ende: 

data 

blk.l $100 
stack: blk.l 1 


Hier nun noch ein kleines Beispiel-Programm in GFA-BASIC, 
mit dem die Sortier-Routine demonstriert werden kann. Das 
anfängliche Auffüllen der Strings dient zur Sicherheit, damit 
nach dem Sortieren nicht falsche Daten auftauchen. 


1 Programm: GFA_SORT.BAS 

I 

' *** Demo-Programm für die Sortier-Routine S.D. *** 

i 

Dirn A$(10) 

For IX=0 To 10 
A$(IX)="!" 

Next 1% 

I 

A$(0)="Stefan" 

A$(1)="Dittrich" 

A$(2)="GFA-BASIC 11 
A$(3)="Erweiterung:" 

A$(4)="Sortieren" 

A$(5)="von" 

A$(6)="indizierten" 

A$(7)="Strings" 

A$(8)="für 'TIPS" 

A$(9)="UND TRICKS'" 

A$(10)="zu GFA-BASIC" 

I 

Monitor (*A$()) isortieren... 

I 

For IX=0 To 10 
Print A$(IX) 

Next IX 


•Feld dimensionieren 
•vorsichtshalber auffüllen 

!Strings belegen 


lund ausgeben 
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Anhang A: 

Verzeichnis der TOS- und GEM-Routinen 


XBIOS-Funktionen (eXtendedlnputOutputSystem) 

XBIOS(2) (physikalische Bildschirmadresse) . 116 

XBIOS(3) (logische Bildschirmadresse) . 116 

XBIOS(4) (aktuelle Bildschirmauflösung) . 116 

XBIOS(5) (Logbase und Physbase ändern) . 117 

XBIOS(6) (Farbpalette neu setzen) . 118 

XBIOS(7) (Fargregister lesen) . 119 

XBIOS(8) (Sektoren lesen) . 119 

XBIOS(9) (Sektoren schreiben) . 119 

XBIOS(IO) (Tracks formatieren) . 120 

XBIOS(12) (MIDI-String ausgeben) . 122 

XBIOS(14) (I/O-Pufferadressen) .. 123 

XBIOS(15) (RS232-Konfiguration) . 123 

XBIOS(16) (Tastaturbelegung setzen/ermitteln) . 124 

XBIOS(17) (Zufallswert) . 126 

XBIOS(18) (Bootsektor erzeugen) . 127 

XBIOS(19) (Sektoren verifizieren) . 120, 132 

XBIOS(21) (TOS-Cursor-Attribute) . 132 

XBIOS(24) (Tastaturbelegung restaurieren) . 133 

XBIOS(26) (MFP-Interrupt sperren) . 133 

XBIOS(27) (MFP-Interrupt zulassen) . 133 

XBIOS(28) (Soundregister lesen/setzen) . 134 

XBIOS(29) (Soundchip-Floppy-Port-A-Bits setzen) . 135 

XBIOS(30) (Soundchip-Floppy-Port-A-Bits löschen) . 135 

XBIOS(32) (Soundstring im Interrupt) . 136 

XBIOS(33) (Druckerkonfiguration setzen/lesen) . 138 

XBIOS(35) (Tastatur-Repeat setzen/lesen) . 138 

XBIOS(38) (’Cair im Supervisor-Modus) . 139 

XBIOS(39) (Disk-TOS-AES ausschalten) . 139 
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GEMDOS-Funktionen 

(CraphicEnvironmentManager DiskOperatingSystem) 

GEMDOS(l) (offene Einzelzeichen-Eingabe) . 140 

GEMDOS(7) (verdeckte Einzelzeichen-Eingabe) . 140 

GEMDOS(25) (aktuelles Laufwerk ermitteln) . 141 

GEMDOS(26) (DiskTransferAdresse setzen) . 142 

GEMDOS(32) (Supervisor-Modus an/aus). 143 

GEMDOS(47) (DiskTransferAdresse ermitteln) . 144 

GEMDOS(67) (File-Attribute ändern) . 145 

GEMDOS(72) (freien Speicher lesen/reservieren) . 146 

GEMDOS(73) (reservierten Speicher freigeben) . 148 

GEMDOS(74) (Speicherblock reservieren) . 148 

GEMDOS(78) (Datei suchen) . 149 

GEMDOS(79) (weitere Dateien suchen) 150 

BIOS-Funktionen (BasicInputOutputSystem) 

BIOS(4) (Sektoren lesen/schreiben) . 151 

BIOS(7) (Bios-Parmeter-Block-Adresse) . 152 

BIOS(9) (Diskettenwechsel feststellen) . 153 

BIOS(IO) (angeschlossene Laufwerke ermitteln) . 153 

BIOS(ll) (Umschalttasten-Status lesen/setzen) 153 

VDISYS-Routinen 

GETHANDLE (VDI-Handle ermitteln) . 156 

VDISYS 164 (Desktop-Linienart u. -dicke ändern) . 164 

VDISYS 16 (Desktop-Linienart u. -dicke ändern) . 164 

VDISYS 113 (Desktop-Linienart u. -dicke ändern) . 164 

VDISYS 12 (Desktop-Textart, -höhe, -winkel ändern) .. 164 

VDISYS 13 (Desktop-Textart, -höhe, -winkel ändern) .. 164 

VDISYS 106 (Desktop-Textart, -höhe, -winkel ändern) .. 164 

VDISYS 35 (aktuelle Linien-Attribute ermitteln) . 160 

VDISYS 36 (aktuelle Marker-Attribute ermitteln) . 160 

VDISYS 37 (aktuelle Füll-Attribute ermitteln) . 160 

VDISYS 38 (aktuelle Text-Attribute ermitteln) . 161 

VDISYS 104 (’P’-Umrahmung an/aus) . 156 

VDISYS 114 (randlose Pbox zeichnen) . 157 

VDISYS 129 (Grafik-Ausgabebereich bestimmen) . 159 
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GEMSYS-Routinen 


GEMSYS 52 (Alertbox produzieren) . 169 

GEMSYS 70 (’Gummiband’-Box produzieren) . 165 

GEMSYS 71 (’Schiebe’-Box produzieren) . 166 

GEMSYS 72 (Box-Bewegungseffekt produzieren) . 167 

GEMSYS 73 (Box-Öffnungseffekt produzieren) . 168 

GEMSYS 74 (Box-Schließungseffekt produzieren) . 168 









346 


GFA BASIC Tips & Tricks 


Anhang B: Stichwortverzeichnis 


Adreßregister . 

AES-Icon-Speicher 

AES-Icons . 

Aktionspunkt . 

Alert-Icons . 

Anfangs-CLS . 

APPLBLK . 

Auflösung . 


. 338 

. 38 

. 36 

27, 32, 43, 53 

. 40, 49, 67 

. 73 

. 181 

. 116 


Backup . 

BAS-HEADER . 

Baudrate . 

Bildschirm-Speicher . 

Binärdatas . 

Bios-Parameter-Block 

BITBLK . 

Bitmuster . 

Boot-Sektor . 


. 321 

. 301 

. 124 

. 16f, 60, 116 

. 50, 62 

. 92, 152 

. 202, 269 

. 22, 39 

87, 91, 100, 108, 121, 130 


Clipping . 157, 245 

Cluster . 90 

Control-Feld . 158 

Cursor . 132 

Cursor-Blinkfrequenz . 132 


Deffn . 115 

Desktop-Icons . 33, 41, 67 

Diodenkabel . 122 

Directory . 89, 128 

Directory-Cluster . 98 

Disk-Puffer . 82 

Disk-Transfer-Adresse . 142 

Disketten-TOS . 24, 65 

Dreieckwelle . 137 

Druckeranpassung . 281 

Druckereinstellung . 138 
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EDITOR . 42 

EXIT-Objekt . 199 

Extension . 28, 321 


Farbpalette . 

Farbregister . 

FAT . 

FORM ALERT . 

Formular . 

Form_do . 

Funktionstastenbelegung 


. 80 

. 60, 118 

88, 92, 102, 121, 129 

. 169 

. 198 

. 199 

. 222 


GEM-Objektbäume . 171 

Get/Put-String . 59, 61 

GRAF GROWBOX . 168 

GRAF MOVEBOX . 167 

GRAF SHRINKBOX . 168 

Graf_dragbox . 227 

Graf rubberbox . 227 


Hardcopy . 82 

Header . 189 

Hidden_line_Algorithmus . 289 

ICONBLK . 181, 209, 268 

Icons . 209 

Illegal-Instruction-Vektor . 335 

Image . 207 

Interrupt-Routinen . 79 

Joystick-Aktionen . 70 

Laufwerksnummer . 78 

Lesekopf-Bewegung . 77 

Makros . 113 

Maus-Icon .32, 38, 40 

Maus-Icons austauschen . 52 

Mausbewegung . 69, 72 

Maushintergrund . 73, 96 
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Mausindex . 55 

Mausmaske . 53 

Media-Change . 95 

Media-Change-Flag . 68 

Menü . 229 

Menu_bar . 230 

Menu ienable . 230 

Menu_text . 231 

Menu_tnormal . 231 

MIDI-Ports . 122 

MONITOR(n) . 335 

Muster-Speicherung . 46 

Nibbels . 104 


Objc_change . 

Objc_draw . 

Objc_find . 

Objektbaum . 

Objekte . 
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Bücher zum ATARI ST 


Verlassen Sie sich nicht auf Gerüchte, profitieren Sie lieber 
vom DATA BECKER-Know-How. Keine nackten Befehlsüber¬ 
sichten, sondern wirklich brauchbares Material liefert dieses 
Buch in Hülle und Fülle. Dem Autor ist es erstmalig gelungen, 
ein wirklich spannendes Buch zum neuen GfA-BASIC zu 
schreiben. So lernen Sie nicht nur schnell und kompetent das 
GfA-BASIC und die Systemprogrammierung des ATARI ST 
kennen, sondern erhalten zusätzlich noch ein komplettes 
GRAPHIC CONSTRUCTION SET, das mit den gebotenen 
Features garantiert einmalig ist. 

Aus dem Inhalt: 

- Kommandos des GfA-EDITORS 

- Strukturierte Programmierung 
kontra Spaghetti-Code 

- Professionelle Programmerstellung 
anhand des GCS 

- Trickfilm-Modus in Echtzeit 

- Patch-Grafik-Design 

- 3-D-Animationsgrafik 

- Pattern- und Grafik-Editor 

- Verzerren, Spiegeln, 3-D-Trommel- 
Generator 

- Clipping, Blockverarbeitung, 
Netzmodus 

- 2 aktive/2 passive Grafikseiten 
und vieles mehr 



Litzkendorf 

Das große GfA-BASIC-Buch 
Hardcover, 468 Seiten, DM 49,- 
ISBN 3-89011-222-6 




Die Grafikfähigkeiten des ST gezielt für eigene Anwendungen 
einsetzen - dieses Buch zeigt Ihnen, wie es geht. Mit den vie¬ 
len Beispielprogrammen in GFA-BASIC, C und Assembler, 
deren Source-Code komplett auf der Diskette zum Buch mit¬ 
geliefert wird, bestimmen Sie den Schwierigkeitsgrad selbst. 
So ist Ihr Erfolg vorprogrammiert. 


Pleng« 

SUPER 

GRAFIK 

Buch zum 

St 

K 



EIN DATA BECKER BUCH 


Aus dem Inhalt: 

- Bildschirmfenster und Grafikausgaben 

- Grundlegende Grafikroutinen 

- Mausverwaltung 

- Sprite-Programmierung 

- Poster-Hardcopy 

- 3-D-Grafik und CAD 

- Bewegte Bilder in 3-D 

- Laufschriften 

- Spiele 

- Funktionsdarstellungen 

- Busineß-Grafik 

- Statistik 

- GDOS und Metafiles 

- Trickfilmproduktion mitSuper-8 und Video 

- Grafikmanipulationen 

- Programmierung des Rasterzeileninterrupt 

- Flackerfreie Animation 

- Anschluß fremder Monitore 

- Ein-/Ausgabe von Grafiken auf Diskette 

- Druckeransteuerung 

- Viele Grafikalgorithmen 


Plenge 

Das Supergrafik-Buch zum Atari ST 
383 Seiten, DM 69,- 
ISBN 3-89011-004-5 



DAS STEHT DRIN: 

GFA-BASIC ist ohne Zweifel eine der leistungsfähigsten BASIC-Versionen, die 
es für den ATARI ST gibt. Nur - wer diese fantastischen Fähigkeiten wirklich voll 
ausschöpfen will, braucht entsprechendes Know-how, braucht bei der Pro¬ 
grammierung all die hilfreichen Tips & Tricks der GFA-Profis. Und damit der 
Spaß nicht beim Abtippen aufhört, werden alle Beispielprogramme gleich auf 
Diskette mitgeliefert. 

Aus dem Inhalt: 

- Komfortable Form-Input-Routine für eigene Maskenerstellung 

- Hilfsroutinen für eigene Textverarbeitungen-WordWrap ■ 

- Taschenrechner als Hilfsprogramm mit Dezimal/Hexadezimal-Ausgabe 

- Schnelle Sortier-Routine in Assembler zum Einbinden in eigene Dateiverwal¬ 
tungen 

- Die Routinen des Betriebssystems voll im Griff - GEMDOS, BIOS, XBIOS 

- Neue Grafikroutinen durch Nutzung des VDI und AES 

- Diskettenaufbau und Ploppy-Programmierung, incl. Diskmonitor 

- Super-Icon-Editorzum Erstellen von individuellen Desktop-Symbolen 

- In die Tiefen des Rechners geschaut - die Speicherlupe 

- Professionelle 3-D-Business-Grafik zur eindrucksvollen Präsentation 

- GEM-Programmierung mit GFA-BASIC: die eigene Benutzeroberfläche, 
Pull-Down-Menüs, Windows, Eingabeboxen und beliebige Grafiken 

- Das schier Unmögliche - 7 Fenster gleichzeitig öffnen, ohne daß es zieht 

- Resource Construction Set in GFA-BASIC als Baukasten 

UND GESCHRIEBEN HABEN DIESES BUCH: 

Uwe Litzkendorf, Architekturstudent und Autor des großen GFA-BASIC- 
Buches, hat als einer der ersten mit dem GFA-BASIC gearbeitet. Sein Program¬ 
mierhandbuch zum GFA-BASIC ist mittlerweile der Bestseller zu diesem 
Thema. Udo Onnen, Architekt und bekannter DATAWELT-Autor, ist passionier¬ 
ter BASIC-Programmierer und hat sich im Laufe der Zeit eine riesige GFA- 
System-Bibliothek aufgebaut, die er in diesem Buch erstmalig einem großen 
Anwenderkreis zur Verfügung stellt. 


ISB N 3-89011-193-9 


DM 49.00 


DM 49,- 
ÖS 382,- 
sFr 47,- 
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Jede von uns nicht autorisierte Weitergabe des 
Programms {Verleih, Tausch, Verkauf) ist untersagt 
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